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Solo Dysan garantisce che 
tutta la superficie della 
diskette sia realmente 
100% “error free”: un test 
esclusivo certifica le tracce 
e lo spazio tra le tracce 
assicurando prestazioni 
“error free” anche in 
presenza di 
disallineamento delle 
testine. 


Solo Dysan garantisce una 
superficie “a specchio” 
grazie alla sua avanzata ed 
unica tecnica di 
“burnishing” - questo 
risultato assicura un 
miglior segnale sulle 
tracce, una minor 
turbolenza sulle testine, 
consentendo un sicuro 
mantenimento dei dati 
dopo milioni e milioni di 
rotazioni. 


Solo Dysan garantisce, 
mediante uno speciale 
procedimento di 
lubrificazione, ottenuto 
trattando la superficie con 
il proprio esclusivo 
lubrificante DY 10, che le 
prestazioni “error free” 
siano esaltate e mantenute 
nel tempo. 


Solo Dysan garantisce, c( 
il suo metodo automaticc 
di controllo qualità di tut 
la produzione (risultato d 
una tecnologia leader nel 
mondo) che ogni diskette 
prodotta sia stata 
singolarmente testata e 
certificata. 
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Dieta personalizzata 

Con questo sistema di data base nutrizionale, chiunque può 
personalizzare, a seconda della propria costituzione fisica e 
delle abitudini alimentari, una dieta bilanciata, a lunga o a breve 
scadenza. 


AppleWorks 

Umagenda telefonica che individui in tempo reale qualunque 
numero memorizzato? Molto di più. A Natale e a Pasqua stampa 
le etichette con gli indirizzi per spedire gli auguri, ma solo a chi i 
vostri auguri se li merita. Inoltre... 
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Il pompiere 

E’ scoppiato un incendio, e voi siete un pompiere che deve 
salvare il maggior numero di persone prima che muoiano 
soffocate tra le fiamme. Se sbagliate tre volte sarete nei guai: il 
severo comandante... 


Macprove 

Si potrebbe davvero definire una banda musicale, perché JAZZ, 
il nuovo pacchetto applicativo integrato della Lotus, racchiude in 
sé ben sei programmi interattivi. 


Contasecondi 

Un breve ma efficace programma per trasformare l’Apple // in un 
fedele e preciso timer che avverte del passare del tempo, e al 
momento giusto... 


Designer 

Un buon programma per disegnare: ma non solo per bambini che 
vogliono giocare. Il concetto dei potenti e costosi programmi di 
CAD/CAM, alla portata dell’Apple //, ne fa uno strumento quasi 
professionale. 
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One liner 

Scrivere un programma compiuto in una sola linea? E’ possibile, 
e appassionante. Eccovene venti. 


Utility 

Programmare è divertente, creativo, affascinante. Ma talvolta 
bisogna tornare sul listato per correggere e modificare qualcosa. 
Allora può capitare di pentirsi di aver preferito la compattezza alla 
chiarezza. A meno che... 




Il gioco dei pompieri, pag. 65 



Ecco Jazz! pag. 72 



Macnews 

Sempre nuovi programmi per l’impareggiabile Macintosh, con 
un’hit-parade del mese davvero superba. 


Le rubriche 

6 Applichi 
8Applicosa 

120 Applicando si trova anche qui 
122 Appli Help 
126 Lettere 
128 Disk Service 
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Elicati, non si restituiscono. 
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PER ÌODÌcÀ "ITALIANA 




L'estate è alle porte e, d'estate, bisogna essere 
snellì e forti, magri e belli, informa più che mai; ecco 
perché abbiamo dedicato la copertina alla Venere dei 
nostri tempi, una Venere che non emerge da una 
conchiglia attorniata dai flutti del mare, ma che sale 
leggera da una bilancia, consapevole di potersi tuffare, 
senza vergogna delle proprie forme, tra bianchi e 
spumeggianti cavalloni. Un momento, però. I lettori di 
Applicando, stando ai risultati dell'indagine conclusa da 
poco, sono uomini per il 90 per cento. Un omaggio quindi 
a quel 10 percento di gentil sesso? Nemmeno per sogno: 
le lettrici di Applicando sono snelle, gentili e graziose 
per il solo fatto che adoperano un Apple. 

In realtà, scherzi a parte, Dieta personalizzata (pag. 
16) è un programma davvero ottimo. Infatti, a differenza 
di tutte le diete che normalmente vengono proposte, con 
l'aiuto di questo Data Base nutrizionale è possibile 
impostare una dieta personalizzata e calcolare giorno 
per giorno o, addirittura, pasto per pasto, compresi i 
caffè al bar o gii stuzzichini a metà pomeriggio, le 
calorie, i grassi, le vitamine, il colesterolo ingeriti, e 
sapere se si sta dimagrendo, ingrassando o si è raggiunta 
una beata stabilità. In effetti è ben più di una dieta, è uno 
strumento per mantenersi in salute e in forma perfetta. 

Ma naturalmente non solo dieta. Chi è appassionato di 
grafica, vada subito a pag. 83: troverà un programma che 
applica i concetti di CAD/CAM all'Apple, ottenendo uno 
strumento per disegnare semiprofessionale. E poi: venti 
programmi di una linea sola, un’agenda telefonica con il 
Tre per" te, un fantastico gioco in alta risoluzione 
(Pompieri, pag. 65), una utility per stampare i listati "in 
bella vista", un timer. Infine notizie su Macintosh, i suoi 
programmi e le sue applicazioni. 
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Quel torneo 
lo dirige Apple 

Nel numero di genna¬ 
io-febbraio 1985 di Appli¬ 
cando abbiamo pubblicato 
un divertente programma 
per giocare a bridge con 
l’Apple. Adesso ci giunge 
notizia che già da tre anni il 
Prof. Ing. Aldo Borzì di Pa¬ 
lermo, Direttore di Tornei 
della Federazione Italiana 
Bridge, ha messo a punto 
una serie di programmi per 
rendere più veloci e sicuri i 
calcoli e la gestione dei "mo¬ 
vimenti" nel corso dei Tor¬ 
nei di Bridge. 

L’ing. Aldo Borzì è presi¬ 
dente di ALBOR, un’Asso¬ 
ciazione di appassionati di 
bridge, scacchi e altre attivi¬ 
tà intellettuali che hanno co¬ 
me comune denominatore 
l’agonismo. Naturalmente 
Apple (un II europlus, in 
questo caso) è il migliore al¬ 
leato del Presidente di AL¬ 
BOR per tutto ciò che con¬ 
cerne gli aspetti tecnici e or¬ 
ganizzativi delle manifesta¬ 
zioni promosse da questa as¬ 
sociazione. 

Si dice che il Bridge sia il 
"gioco più giocato" nel mon¬ 
do dopo il calcio. Anche se 
la notizia non è confermata 
da nessuna fonte ufficiale, è 
certo che la diffusione di 
questo gioco è enorme, co¬ 
me conferma un episodio 
raccontato dal dottor Bar¬ 
bone, Presidente della Fe¬ 
derazione Italiana Bridge: 
"Nel corso di un Torneo in¬ 
ternazionale, il nostro cam¬ 
pionissimo Giorgio Bela- 
donna scartò un asso in base 
a un suo calcolo di gioco che 
poi non si rivelò esatto. Mesi 
dopo, in un aeroporto ame¬ 
ricano dove si era recata la 
Squadra Nazionale Italiana, 
un portabagagli si rifiutò de¬ 
cisamente di portare le vali¬ 
gie "a uno che scarta gli assi!" 

Il Bridge, in cui gli italiani 
hanno sempre avuto una so¬ 
lidissima tradizione a livello 
internazionale, è organizza¬ 
to come un vero e proprio 
sport con tanto di Federa¬ 
zione Italiana Bridge, classi¬ 
fiche individuali e a squadre 


e Campionati italiani di se¬ 
rie A,B,C e promozione, ol¬ 
tre alla famosa Squadra Na¬ 
zionale che ha dominato la 
scena mondiale per moltissi¬ 
mi anni. 

I Tornei di Bridge si svol¬ 
gono con un criterio molto 
semplice: tutte le coppie o le 
squadre giocano lo stesso 
numero di partite con la 
stessa composizione di car¬ 
te, e la comparazione dei ri¬ 
sultati viene poi valutata ai 
fini della classifica secondo 
un sistema di punteggio or¬ 
mai collaudatissimo. 

"I Tornei nei quali si ha 
maggior vantaggio con il cal¬ 
colo automatico sono quelli 
a coppie con il sistema Mit- 
chell" dice ring. Borzì "infat¬ 
ti l’assegnazione dei punteg¬ 
gi e l'elaborazione delle 
classifiche con i sistemi tra¬ 
dizionali comportavano 
tempi oscillanti tra le 6 e le 8 
ore di lavoro, con una certa 
percentuale di rischio di er¬ 
rore e le conseguenti conte- 
stazioni che costringevano a 
rivedere tutto! È per questo 
che i primi programmi che 
ho scritto per la direzione 
dei Tornei si chiamano 
"Bridge 1", "Bridge 2" e 
"Bridge 3": mi consentono di 
elaborare classifiche e pun¬ 
teggi per i tornei che si svol¬ 
gono rispettivamente in 1, 2 
o 3 turni di gara con un tem¬ 
po massimo di elaborazione 


che non arriva a 5 minuti di 
calcolo per 100 coppie par¬ 
tecipanti. Naturalmente ho 
fatto in modo di inserire an¬ 
che tutte le possibili varianti 
in tema di classifiche parziali 
e speciali che spesso sono 
previste nei Tornei più 'ric¬ 
chi’. Per i Tornei a squadre 
che si svolgono con il siste¬ 
ma Danese ho poi preparato 
un altro programma: il van¬ 
taggio in questo caso è leg¬ 
germente meno sensibile ma 
è sempre molto più comodo 
operare con Apple che ma¬ 
nualmente." 

L’ing. Borzì usa abitual¬ 
mente il computer per la sua 
professione elaborando i ne¬ 
cessari calcoli strutturali e 





L’Apple sormontato da alcu¬ 
ne coppe in palio in un recen¬ 
te Torneo svolto In Sicilia. 


statistici in modo automati¬ 
co; il software per il bridge è 
stato quindi una estensione 
naturale della sua familiari¬ 
tà con Apple alla sua accer¬ 
tata passione per il Bridge. 

"Uno dei più evidenti van¬ 
taggi dell’uso del computer 
nella direzione dei Tornei di 
Bridge è certamente dovuto 
all’immediata soddisfazione 
dei giocatori e degli sponsor 
alla fine delle mani di gioco" 
afferma ancora l’ing. Borzì 
"infatti la velocità del mio 
Apple mi permette di stilare 
le classifiche finali in un 
tempo veramente ridotto, e 
poiché il regolamento della 
Federazione Italiana Bridge 
dispone che le classifiche di¬ 
ventino definitive mezz’ora 
dopo la loro affissione, non 
solo i giocatori hanno la sod¬ 
disfazione di sapere imme¬ 
diatamente il risultato delle 
loro 'fatiche agonistiche’ ma 
si può anche procedere alla 
premiazione entro pochissi¬ 
mo tempo, con grande sod¬ 
disfazione degli sponsor che 
possono quindi contare sulla 
quasi totalità dei parteci¬ 
panti al Torneo anche nella 
cerimonia di attribuzione 
dei premi in palio. Oggi gli 
sponsor sono praticamente 
indispensabili per i Tornei 
più importanti ed è anche 
grazie all’uso del computer 
se le manifetazioni agonisti¬ 
che di Bridge sono oggi ben 
più numerose e 'dotate’ di 
quanto non fossero solo po¬ 
chi anni addietro." 

Il software per la direzio¬ 
ne dei Tornei di Bridge è re¬ 
centemente assurto anche 
agli onori della cronaca nera 
siciliana, come ci racconta lo 
stesso ing. Borzì: "È stato in 
occasione del Torneo Na¬ 
zionale di Cefalù dello scor¬ 
so anno. In uno dei momenti 
in cui era richiesta la mia 
presenza in una delle sale 
dove si svolgeva la gara, 
qualcuno ha tolto dal drive il 
disco con il mio programma. 
Per fortuna ho sempre una 
copia dei dischi nel caso che 
uno vada danneggiato acci¬ 
dentalmente... Un episodio 
spiacevole, sono stato co¬ 
stretto a farne denuncia ai 
Carabinieri." 
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IN DIRETTA 
DAL VOSTRO 
COMPUTER. 



TARGET MARKET 


M. CENTRAL 


Sistema Polaroid Palette 
per diapositive immediate 35 mm. 

Il sistema Polaroid Palette è stato con¬ 
cepito come unità periferica per i più diffu¬ 
si personal computers. 

Istogrammi, grafici, ed altri tipi di ela¬ 
borati possono essere facilmente riprodot¬ 
ti nelle tonalità più sature e brillanti, gra¬ 
zie ad una scala cromatica di ben 72 colori. 

Il tutto in tempo reale, operando sia 
con schermo monocromo che a colori. 

Il sistema Polaroid Palette utilizza, in¬ 
fatti, il segnale di uscita del computer stes¬ 


so e consente elaborazioni fotografiche a 
colori sia su positivo (hard copy) che in 
diapositiva Polaroid 35 mm. 

Il sistema minimizza quindi la retinatu- 
ra dello schermo, per una riproduzione fo¬ 
tografica accurata e definita. 

Il sistema Polaroid Palette è uno stru¬ 
mento di lavoro per operatori di marke¬ 
ting, per ricercatori, per tutti coloro che 
necessitano di un adeguato supporto visi¬ 
vo alle loro presentazioni. 

Chiedete una dimostrazione al vo¬ 
stro rivenditore di fiducia e ai Distri¬ 
butori Specializzati Polaroid (indiriz¬ 
zi sulle Pagine Gialle). 


Per ulteriori informazioni spedite questo 
tagliando a: POLAROID (Italia) S.p.A. 
Divisione Prodotti Professionali 
Via Piave, 11 - Tel. 0332/470031 
21051 ARCISATE (Varese) 



Mittente _ 
Indirizzo _ 


in 
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_ Polaroid 


"Polaroid" è un marchio registrato della Polaroid Corporation, Cambridge, Mass., USA. Polaroid 1985. 
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La piastra per Macintosh da 512 Kb che può sostituire quella 
da 128 Kb. 


Memoria offresi 

Come previsto, la AP¬ 
PLE ha messo in vendita 
una piastra completa con la 
memoria di 512 Kb che può 
sostituire in poco meno di 
mezz’ora la piastra da 
128Kb contenuta nei primi 
Mac. Il prezzo di listino è di 
2.000.000 + IVA. La Apple 
però rimborsa 500.000 lire 
se le si rende la piastra da 
128 Kb. In definitiva il Ma¬ 
cintosh viene fornito sia nel¬ 
la versione a 128 Kb sia in 
quella da 512 Kbyte, con la 
differenza di circa un milio¬ 
ne e mezzo. 

La possibilità di avere 512 
Kbyte di memoria aumenta 
di gran lunga le già ottime 
prestazioni del Macintosh; a 
livello di sistema operativo, 
risultano più veloci ad esem¬ 
pio la copiatura di un disco 
che, fatta con un solo driver, 
richiede solo tre passate in¬ 
vece di dieci. Gli stessi pro¬ 
grammi applicativi MacWri- 
te e MacPoint possono ope¬ 
rare più velocemente perché 
occorre minor spazio su di¬ 
sco per appoggiare tempo¬ 
raneamente i file di servizio, 
e i diversi accessori di dise¬ 
gno lavorano istantanea- 
mente essendo tutti caricati 
in memoria. Si può quindi 
lavorare anche con meno di 
30 Kb disponibili su disco, 
cosa che non era possibile 
invece con la memoria di 
128K: si era costretti a to¬ 
gliere qualche file dal disco 
se si voleva stampare un di¬ 
segno. Chi vuole scrivere 
programmi con il Microsoft 
Basic avrà a disposizione, 
una volta caricato il Basic, 
390 Kb invece di 16. Per la 
sostituzione della piastra oc¬ 
corre rivolgersi ai Rivendi¬ 
tori autorizzati APPLE. 

Un’altra interessante so¬ 
luzione per aumentare la 
memoria di Mac da 128 a 
512Kb la propone una gio¬ 
vane e dinamica azienda di 
Montorfano (Como), la 
Southern European Com¬ 
puter che, nonostante la 
presenza sul mercato del¬ 
l’Apple da poco più di un 
anno, ha al suo attivo l'im¬ 
portazione e la distribuzione 


in Italia di moltissimi pac¬ 
chetti di software per Apple 
// e Macintosh. La SEC in¬ 
fatti propone un kit di tra¬ 
sformazione che costa appe¬ 
na £ 1.200.000. Per informa¬ 
zioni e maggiori ragguagli, 
potete scrivere (richiedendo 
gratuitamente il catalogo) a 
Southern European Com¬ 
puter, Via Molino 2, 22030 
Montorfano (CO), oppure 
telefonare allo 031/200621. 

20 Mega per Mac 

Una memoria di massa da 
20 Mega? È in arrivo per 
Macintosh, prodotta dalla 
Apple. Sarà disponibile in 
Italia a partire da settem¬ 
bre-ottobre, e aumenterà 
enormemente le possibilità 
di utilizzo professionale del 
piccolo grande computer di 
casa Apple, mettendolo in 
grado di funzionare egregia¬ 
mente anche sui più com¬ 
plessi programmi gestionali 
che richiedono grandi capa¬ 
cità di memoria. Il prezzo? 
Non è ancora stato comuni¬ 
cato, ma dovrebbe essere 
molto ragionevole. 


Un’occasione 
da non perdere 

La Apple Computer ha 
lanciato la nuova campagna 
Trova su strada Macintosh" 
a partire dal 15 aprile 1985. 
Si tratta di un’iniziativa 
espressamente studiata per i 
professionisti e i manager 
che vogliono "avvicinarsi" al 
potente Mac per provare 
con mano, con o senza l’assi¬ 
stenza del rivenditore, le 
possibilità e la facilità d'uso 
di Mac. 

L’iniziativa è principal¬ 
mente rivolta alla fascia pro¬ 
fessionale d’utenza che vuo¬ 
le avere in prima persona le 
risposte alle classiche do¬ 
mande sui computer "cosa 
può fare per il mio lavoro il 
personal computer?", oppu¬ 
re "esiste un'applicazione 
che può risolvere il mio pro¬ 
blema specifico?". 

Per "avere le chiavi" di 
Mac basta presentarsi in uno 
dei tanti negozi abilitati alla 
prova. Fatto questo, un Mac 
con opportuni programmi di 
prova, corredati da un com¬ 
mento su cassetta che spiega 


le principali caratteristiche 
di Mac, vengono messi a di¬ 
sposizione degli interessati. 

Terminato questo primo 
"ciclo" di approccio, l’utente 
può utilizzare uno dei tanti 
programmi della biblioteca 
per ricercare i possibili cam¬ 
pi di utilizzo nella sua attivi¬ 
tà professionale. In qualsisi 
momento, naturalmente, si 
può richiedere l’intervento 
di una persona esperta che 
interverrà con spiegazioni, 
suggerimenti e dimostrazio¬ 
ni per facilitare al massimo 
la "familiarizzazione" con il 
simpatico Mac. 

Un mega ma 
a floppy ridotti 

L’utilizzo sempre più 
massiccio di programmi di 
word processing e la necessi¬ 
tà di immagazzinare infor¬ 
mazioni con data base molto 
capienti è uno degli orienta¬ 
menti più evidenti dell’uten¬ 
za di personal computer. Vi¬ 
sta la grande diffusione degli 
Apple II e //e, la Datatech 
S.p.A. di Milano (Centro 
Direzionale Milanofiori, 
Strada 7 - Palazzo TI - 
20089 ROZZANO -MI- 
tei. 02/8243382) propone 
oggi due modelli diversi di 
unità a floppy con capacità 
di memoria decisamente più 
elevate di quelle standard. 

Nella versione con singo¬ 
lo drive da 640Kb o in una 
versione con doppio drive, 
queste unità dischi vengono 
offerte con una scheda di in¬ 
terfaccia che consente la lo¬ 
ro utilizzazione per qualsiasi 
programma scritto in DOS 
3.3, DIVERSI DOS, PA¬ 
SCAL 1.1 e 1.2, PRODOSe 
CP/M2.2 (vers. 56Kb). 

Nella versione con singo¬ 
lo drive l'alimentazione è 
delegata all'Apple, mentre 
nella versione con doppio 
drive l’alimentazione sepa¬ 
rata consente di non carica¬ 
re eccesivamente l'alimen¬ 
tatore dell’Apple. 

L'unità con singolo drive 
da 640 Kb formattati 
(SF-AP 960), che è "Stan¬ 
dard Shugart" ed è quindi 
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compatibile ad una vasta 
gamma di macchine, si ottie¬ 
ne una configurazione con il 
drive 1 originale Apple e il 
drive 2 da 640 Kb inserito 
nello slot 6 in sostituzione 
del normale controller. Nel¬ 
la configurazione più "ca¬ 
piente" a doppio drive 
SF- AP 961 si hanno invece 
due drive da 640 Kb per un 
totale di 1,28 Mb. 

La scheda di interfaccia 
AFDC2 provvede all’ali- 
mentazione della versione 
con singolo drive mentre, 
come accennato, l’alimenta- 
zione della versione a dop¬ 
pio drive è incorporata nell’ 
SF-AP 961. 

Ma non è tutto, sono in 
allestimento due configura¬ 
zioni con dischi da 3" 1/2 
(SF-AP 962 e SF-AP 963) 
con le stesse capacità di me¬ 
moria di 640 Kb formattati 
ma con il pregio di un forma¬ 
to ridotto dei dischetti. 

Il kit di installazione, di 
facile montaggio anche da 
parte di non esperti, com¬ 
prende inoltre le utilites di 
FORMATTAZIONE e 
COPIA per i dischetti da 
640 Kb relative a tutti i siste¬ 
mi operativi che abbiamo ci¬ 
tato prima. 

La configurazione da un 
drive costa £ 770.000, men¬ 
tre la versione con doppio 
drive £ 1.300.000, entrambe 
comprese di scheda di inter¬ 
faccia (prezzi IVA esclusa). 
È disponibile anche la singo¬ 
la scheda d’interfaccia per 
accoppiare l'Apple a qual¬ 
siasi drive "Standard Shu- 


II simbolo del neonato Apple 
User Club. 


gart" (prezzo £ 340.000 IVA 
esclusa). 

Per informazioni ci si può 
rivolgere alla sede della Da- 
tatech a Rozzano o alla filia- 
le di Torino (tei. 
011/850904), alla Nike di 
Bologna (tei. 051/223714 - 
271018) o alla Hy-Tek di 
Roma (tei. 06/7970559 - 
6133025). 

Apple User Club 

È di recentissima costitu¬ 
zione l’Apple User Club 
che, come indica lo stesso 
nome, vuole promuovere e 
incentivare i contatti tra i 
proprietari di Apple met¬ 
tendo a loro disposizione, 


presso la sede di Viale Jen- 
ner a Milano, computer, 
schede, stampanti e una va¬ 
sta biblioteca di programmi 
con relativi manuali. Si trat¬ 
ta quindi del luogo ideale 
dove i proprietari di Apple 
possono ritrovarsi per discu¬ 
tere e risolvere i loro proble¬ 
mi specifici. Un’altra delle 
inziative allettanti che pro¬ 
pone l’Apple User Club è 
una convenzione con una se¬ 
rie di qualificati negozi per 
avere schede, software, ac¬ 
cessori e quanto altro possa 
riguardare i computer Ap¬ 
ple, a prezzi davvero inte¬ 
ressanti. Molto presto inol¬ 
tre partirà anche l'iniziativa 
più allettante: una banca da¬ 
ti a cui collegarsi tramite 
modem. 

Per ulteriori informazioni 
scrivere o recarsi il lunedì e 
il mercoledì, dalle 20.30 alle 
23.00, all'Apple User Club, 
Viale Jenner 64, 20159 
Milano. 

Una prece 
per Lisa 

La prematura scomparsa 
dal mercato della giovanissi¬ 
ma Lisa lascia afflitti e scon¬ 
solati i suoi estimatori e tutti 
quanti contavano in un suo 
futuro. Le software-house 
che su di lei avevano investi¬ 


to sono un po' più che addo¬ 
lorate. Macintosh però, fi¬ 
glio di Lisa, promette benis¬ 
simo. La pur breve vita di 
Lisa è valsa a qualcosa se è 
servita a mettere al mondo 
un simile pargolo. Una 
prece. 

La J. Soft 
distribuisce 
i programmi 
Lotus 

La famosa società ameri¬ 
cana Lotus, autrice tra l'al¬ 
tro dei programmi 1 - 2-3 e 
Simphony e del nuovo pro¬ 
gramma Jazz per Macin¬ 
tosh. ha annunciato recente¬ 
mente che la J. Soft di Mila¬ 
no curerà la diffusione sul 
mercato italiano dei suoi 
programmi. L'annuncio è 
stato fatto da David Me Do¬ 
nald, responsabile per la di¬ 
stribuzione in Europa dei 
prodotti della Lotus Deve- 
lopment European Corpo¬ 
ration, aggiungendo che il 
mercato italiano è conside¬ 
rato uno dei più promettenti 
di tutta l’area europea. 

Il programma Jazz per 
Macintosh da aprile è già di¬ 
stribuito in Italia dalla J. 
Soft e i primi dati di diffusio¬ 
ne sono stati definiti "molto 
interessanti". 


I nuovi drive della Datatech con la scheda d’interfaccia. A sinistra il drive singolo da 640 Kb, a 
destra il doppio drive da 1,28 Mb con alimentazione autonoma. 
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Lobot 1 con tutti i suoi componenti. Notare sulla destra il trasmettitore all'Infrarosso che ne 
permette il controllo tramite Apple. 


Spreadsheet 
nella melina 

Nel menù delle risorse 
Macintosh, quello nascosto 
nella melina nera, che con¬ 
tiene anche la calcolatrice, il 
puzzle, eccetera, si può na¬ 
scondere anche uno spread¬ 
sheet? Sì, con Clic-on, un 
programma fatto proprio 
apposta, che consente quin¬ 
di di tenere un utilissimo fo¬ 
glio elettronico sempre a 
portata di mano anche 
quando si è in tutt’altre fac¬ 
cende affaccendati. 

Laser Lobot 

Lobot 1 è un piccolo Ro¬ 
bot a tre ruote che può muo¬ 
versi in tutte le direzioni ed è 
in grado di parlare o, me¬ 
glio, ripetere delle parole e 
frasi immesse da tastiera. Si 
compone di quattro parti: 

1) UNITA’ MOBILE, 
che contiene le parte logica 
ed elettrica per il suo funzio¬ 
namento. In uno dei lati più 
lunghi c’è la possibilità di in¬ 
serire (in due fori apposita¬ 
mente predisposti) un pen¬ 
narello che può così traccia¬ 
re dei bei disegni durante i 
movimenti del robot. 

2) UNITA’ TRASMIT¬ 
TENTE, che permette il 
collegamento con il robot 
tramite la trasmissione dei 
comandi dal computer al ro¬ 
bot stesso a mezzo di raggi 
infrarossi. 

3) SCHEDA di interfac¬ 
ciamento con l’Apple che 
contiene i circuiti logici per 
la conversione dei segnali 
digitali, forniti dal compu¬ 
ter, in segnali analogici ca¬ 
paci di modulare i led a raggi 
infrarossi per il comando del 
robot. 

4) DISCHETTO con il 
programma applicativo per 
il funzionamento sia come 
sintetizzatore vocale che co¬ 
me robot disegnatore. Con¬ 
tiene anche un programma 
dimostrativo in Basic per il 
disegno di un fiore. 

Il Lobot 1 viene fornito 
"pronto all’uso". Le uniche 
operazioni da eseguire si ri¬ 


ducono all’inserimento del¬ 
la scheda nello Slot 2 del¬ 
l’Apple, al collegamento 
delle batterie per l’alimenta¬ 
zione della parte logica e dei 
due motori del robot e al fis¬ 
saggio della testina trasmit¬ 
tente sul suo supporto inse¬ 
rito nella confezione. 

Accompagna il tutto un 
completo manuale esplicati¬ 
vo (in lingua inglese) com¬ 
prendente esempi di pro¬ 
grammi sia per usare il robot 
come speaker sia come abile 
disegnatore; sono riportati 
anche gli schemi elettrici dei 
vari circuiti inseriti nel 
robot. 

Il Laser Lobot 1 è prodot¬ 
to dalla LASER COMPU¬ 
TER LTD e viene distribui¬ 
to in Italia dalla PERTEL, 
via Ormea 99 - Torino, al 
prezzo di lire 760.000 + 
IVA. 

Voci da 800K 

La notizia è incontrollata 
e incontrollabile, ma sem¬ 
bra prorio che siano in arri¬ 
vo i drive da 800K, su di¬ 
schetti da 3 pollici e mezzo, 
per Macintosh e, udite udi¬ 
te, anche per la serie Apple 
//. Alla Apple non confer¬ 
mano. Ma neppure smenti¬ 
scono. 


Archimede 
in concorso 

Il Centro Archimede, 
un’associazione culturale 
senza scopi di lucro fondata 
dal Gruppo Fininvest e dal- 
lTtalturist, con sede scienti¬ 
fica a Ustica, ha indetto il 
concorso "Forse c’è un genio 
alla tastiera del tuo personal 
computer". Possono parteci¬ 
pare privati e società con 
programmi inediti realizzati 
in Italia per personal e home 
computer. 

Chi vuole partecipare al 
concorso deve far pervenire 
entro e non oltre il 
10/6/1985, in busta sigillata 
indirizzata alla segreteria di 
"Archimede Informane", 
Palazzo Donatello, Milano 
2 (Segrate), i programmi su 
supporto magnetico (floppy 
o nastro) e la relativa docu¬ 
mentazione di installazione 
e uso. La documentazione 
sul programma deve poi es¬ 
sere completata da una 
scheda contenente i dati 
anagrafici degli autori (no¬ 
me, cognome, età), la loro 
professione, il recapito di 
uno degli autori, il nome del 
programma e il computer 
(con relativa specifica della 
configurazione richiesta) 


utilizzato. Inoltre bisogna 
specificare chiaramente il 
linguaggio di programma¬ 
zione usato, il sistema ope¬ 
rativo, la dimensione del co¬ 
dice, il supporto su cui il 
programma è presentato e 
un breve elenco della docu¬ 
mentazione allegata con una 
sintetica descrizione delle 
principali caratteristiche del 
programma. 

Le categorie ammesse al 
concorso sono 12: ricreazio¬ 
ne (giochi, intrattenimen¬ 
to), arte (musica, grafica, 
immagini), sport, scienze, 
ambiente e turismo, didatti¬ 
ca, tecnica, salute, servizi, 
casa, ufficio, azienda. 

Ciascun partecipante non 
può presentare più di tre 
programmi. E garantita 
inoltre la restituzione del 
materiale originario, e la se¬ 
greteria del concorso si im¬ 
pegna a non trasferire su al¬ 
cun supporto i programmi 
concorrenti. 

Dopo una preselezione 
effettuata secondo criteri 
messi a punto dall’Istituto di 
Cibernetica dell’Università 
degli Studi di Milano, la fase 
finale del concorso si svolge¬ 
rà in occasione del Festival 
del Software di Ustica (dal 
29 giugno al 6 luglio), a cui 
gli autori potranno parteci- 
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pare con una forte riduzione 
del costo di iscrizione. Ai 
vincitori, primo, secondo e 
terzo classificato in ogni ca¬ 
tegoria, andranno rispetti¬ 
vamente un floppy d'oro, 
uno d’argento e uno di bron¬ 
zo, mentre di tutti i pro¬ 
grammi in regola con le nor¬ 
me del concorso verrà pub¬ 
blicata, in un apposito cata¬ 
logo della manifestazione, 
la descrizione contenuta 
nella scheda di iscrizione. 

Per ulteriori informazioni 
rivolgersi alla Segreteria di 
Archimede Informatic in 
Progress, Palazzo Donatello, 
Milano 2 -20090 Segrate 
(MI). Tel. 02/21623488/3336. 

Operazione 

Quartz 

Tre confezioni da dieci di¬ 
skette da 5" 1/4 doppia den¬ 
sità con l’omaggio di ùn oro¬ 
logio da tavolo al quarzo? 

E l’offerta speciale che 
propone la Key-Data per i 
mesi di maggio e giugno nel¬ 
l’ambito della sua campagna 
promozionale per il lancio 
sul mercato della linea di 
prodotti Key-Data per l’in¬ 
formatica. 

Distributore per l’Italia: 
Gierre Informatica, via Um¬ 
bria 36, 42100 Reggio 
Emilia. 

Un Oscar 
per la chimica 

Non si tratta di una inde¬ 
bita ingerenza del mondo 
dello spettacolo nel mondo 
scientifico ma del riconosci¬ 
mento che anche quest’anno 
il Gruppo 3M Italia ha otte¬ 
nuto quale azienda chimica 
più ammirata dal mondo 
manageriale italiano. Il rico¬ 
noscimento scaturisce dalla 
seconda indagine Hill & 
Knowlton sull’immagine 
delle maggiori aziende ita¬ 
liane, svolta in collaborazio¬ 
ne con la rivista Espansione , 
compiuta inviando un que¬ 
stionario a oltre 2000 mana¬ 
ger, in rappresentanza di 
215 grandi imprese con una 
cinquantina di consulenti, 


esperti e docenti particolar¬ 
mente qualificati che hanno 
risposto valutando le azien¬ 
de su temi generali, finan¬ 
ziari e produttivi assegnati 
sui questionari. 

Due nuove 

stampanti 

Epson 

All’ultima edizione di Ro- 
maufficio ’85 la Segi, distri¬ 
butrice dei prodotti Epson, 
ha presentato le nuovissime 
stampanti LX-80 e 
SQ-2000. La prima è una 
stampante professionale ad 
aghi che può lavorare in mo¬ 
do autonomo grazie a uno 
speciale buffer interno di 
1024 byte che consente di 
continuare a lavorare sulla 
macchina durante le fasi di 
stampa. Dotata di oltre 50 
codici di controllo software, 
selezionabili dal pannello 
frontale, per la giustezza 
dell’impaginato, l’interli¬ 
nea, la tabulazione e il salto 
della pagina, la LX-80 
stampa 100 caratteri al se¬ 
condo su 80 colonne in mo¬ 
do bidirezionale con un set 
di 96 caratteri standard, cui 
si aggiungono 32 caratteri 
per internazionali, 32 per la 
grafica e 32 "Near Letter 
Quality" per la creazione di 
caratteri personalizzati. 

La LO-2000 è invece una 


stampante a getto d’inchio¬ 
stro con una ottima qualità 
di stampa grazie alla testina 
-realizzata con una meccani¬ 
ca ad altissima precisione. 
24 micro-ugelli, disposti su 
due file vericali, consentono 
la creazione di caratteri vir¬ 
tualmente perfetti, con lo 
stesso standard di quelli dei 
giornali. La velocità di stam¬ 
pa è di 105 caratteri al secon¬ 
do, superiore a quella delle 
stampanti a margherita, e 
può arrivare fino a 176 ca¬ 
ratteri/s nella stampa di ta¬ 
bulati o prime bozze di do¬ 
cumenti. Le interfacce uti¬ 
lizzate sono le seriali 
RS-232C e IEEE-488 e 
quella parallela a 8 bit. 



In alto la stampante ad aghi 
LX-80. 

In basso ia SQ-2000 con 
dimensioni d’ingombro 
165 x 595 x 383 mm e un peso 


di 18 Kg. 



De e PSI fanno cadere il progetto di Legge PRI 

La ripresa dell'occupazione 
e crescita della produttività 
passano attraverso 
il terziario avanzato 

■'Ripresenteremo il progetto il 14 maggio. 
Questo è il nostro impegno" 
di LUCIANO FORCELLINI 



L'ilalia tra Europa e Mediterraneo 

La Lombardia dovrà essere 
la cerniera portante 
dell'espansione economica 

di FABIO SEMENZA 


nxsrrrr iEEtriH Sfisr" 
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Il prezzo non è ancora sta¬ 
to definito. Distributore 
esclusivo dei prodotti Epson 
è la Segi, via Timavo 12, 
20124 Milano, telefono 
02/6709136. 

Macintosh 
per le elezioni 

C’è chi usa Macintosh per 
il proprio lavoro e chi invece 
lo usa principalmente per la 
sua potenza di calcolo. C’è 
poi qualcuno che il simpati¬ 
co Mac lo usa per farsi eleg¬ 
gere. È il caso del PRI che 
ha trovato conveniente 
commissionare alla Arcadia 
S.p.A. un settimanale di in¬ 
formazione politico cultura¬ 
le, chiamato Redazione , che 
ha la particolarità di essere 
fatto interamente con Ma¬ 
cintosh. La grafica, rimpa¬ 
ginazione, la composizione 
e tutto il resto, con l’ovvia 
esclusione delle fotografie 
(perché ancora non sono do¬ 
tati del Magic e del Magic- 
Vision che abbiamo pesen- 
tato nel numero scorso di 
Applicando) che vengono 
"lavorate" a parte. 

Al momento in cui scri¬ 
viamo non sappiamo come 
andrà questo turno elettora¬ 
le, ma è certo che se il PRI 
avrà un buon riscontro elet¬ 
torale della sua campagna 
potremo certo dire che è an¬ 
che merito di Mac! In termi¬ 
ni più seri si può portare Re¬ 
dazione come esempio della 
grande versatilità di Macin¬ 
tosh, le cui capacità grafiche 
permettono persino di pre¬ 
parare con la massima facili¬ 
tà un giornale dalla grafica 
moderna e piacevole. 



Un foglio e la testata di 
“Redazione”, periodico 
realizzato interamente con 
Macintosh sfruttando le sue 
notevoli capacità nel settore 
grafico e di composizione di 
testi. 
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Soprattutto 
per ingegneri 

Si svolgerà a Venezia, alla 
Scuola Grande di San Gio¬ 
vanni, il 14, 15 e 16 giugno, 
la seconda edizione del 
Computec, la manifestazio¬ 
ne esclusiva dedicata ai pro¬ 
dotti hardware e software 
destinati alle applicazioni 
tecnico scientifiche per l’in¬ 
gegneria. La mostra si pro¬ 
pone di aggiornare gli ope¬ 
ratori sulle novità del mer¬ 
cato in campo di hardware e 
software ma anche di fornire 
notizie sugli attuali orienta¬ 
menti normativi nel nostro 
Paese sulle modalità di pre¬ 
sentazione delle relazioni di 
calcolo nei progetti realizza¬ 
ti con l’ausilio dell’elabora¬ 
tore. 

Particolarmente nutrito il 
programma delle conferen¬ 
ze e tavole rotonde collate¬ 
rali alla manifestazione. 
Parleranno i professori O. 
De Donato e A. Franchi del 
Politecnico di Milano su 
"Calcolo delle strutture in 
zona sismica: metodi, nor¬ 
mativa e implementazione 
di programmi su microcom¬ 
puter". 11 Prof. F. Cafarella 
deH'Università di Pisa trat¬ 
terà invece i "Problemi ge¬ 
nerali sul calcolo strutturale 
condotto su elaboratori: la 
proposta normativa CNR". 
Il Prof. B. Schrefler dell’u¬ 
niversità di Padova si occu¬ 
perà invece dei "Criteri di 
controllo dei risultati di cal¬ 
colo strutturale svolti per via 
automatica", mentre al Prof. 
S. Odorizzi dell’Università 
di Padova è affidata una "A- 
nalisi comparativa dei criteri 
di valutazione dei prodotti 
di software commerciali nel 
settore del calcolo struttu¬ 
rale". 

I settori di particolare in¬ 
teresse del Computec sono 
nelle applicazioni CAD 
/CAM, nell’analisi struttu¬ 
rale, nei modelli numerici 
nella meccanica, nell’inge- 
gneria idraulica, civile, ma¬ 
rina e aerospaziale. Inoltre 
sono esposti strumenti di 
progetto e controllo per le 
attività di ingegneria, siste¬ 



mi di gestione automatica di 
piani di costo industrale e 
per la pianificazione e con¬ 
trollo della produzione oltre 
che, naturalmente, per i 
controlli di qualità. 

Per informazioni e ritiro 
degli inviti, rivolgersi a HSH 
— Hardware Software Hou¬ 
se, via Falloppio 39, 35100 
Padova. Telefono 
049/663888 - 654450 - 
44200. 

Per imparare 
a disegnare 

Il computer è certamente 
uno strumento sulla cui ver¬ 
satilità non si finisce mai di 
imparare e su cui l’ingegno 
umano può lavorare indefi¬ 
nitamente per creare sem¬ 
pre nuove applicazioni del 
calcolo automatico. La più 
diffusa categoria di informa¬ 
zioni "trattate" con i compu¬ 
ter è certamente costituita 
oggi dai numeri e dai testi. 
Ma le possibilità dei versati¬ 
lissimi calcolatori non si fer¬ 
mano certamente qui: meno 
conosciute e meno applicate 
sono ancora le potenzialità 
del calcolo elettronico delle 
informazioni grafiche. 

Disegni, grafici e immagi¬ 
ni varie possono essere ela¬ 
borate dai computer con tra¬ 
sformazioni di grande aiuto 
in vasti settori professionali 
con interessanti sviluppi so¬ 
prattutto nel settore cine¬ 
matografico, in quello pub¬ 
blicitario e nella neonata 
computer-art. 

Contrariamente ai testi e 
ai numeri, le immagini ven¬ 
gono trattate dal computer 
in modo radicalmente diver¬ 
so dai sistemi tradizionali, 
dato che debbono essere 
scomposte in unità grafiche 
che poi possono essere com¬ 
poste a piacere con una 
grandissima varietà di fun¬ 
zioni ed effetti. 

Per avvicinarsi a questo 
affascinante mondo della 
grafica computerizzata è 
uscito un nuovo libro: Corso 
di grafica con il computer , a 
cura di Daniele Marini, 
Gruppo Editoriale Fabbri. 



Si tratta di un volume che 
affronta l’argomento da tut¬ 
ti i punti di vista illustrando, 
con belle figure e testi esau¬ 
rienti, non solo "cosa" si può 
fare con il computer nel 
campo della grafica, ma an¬ 
che spiegando in modo sem¬ 
plice ed esauriente "come" 
realizzare gli effetti grafici 
principali. La trattazione 
degli argomenti spiega anzi¬ 
tutto le basi su cui si fondano 
i processi di elaborazione 
delle immagini in un compu¬ 
ter e, con facili esempi e 
qualche listato di prova per i 
modelli più diffusi, accom¬ 
pagna il lettore fino alle ap¬ 
plicazioni più professionali e 
avanzate. 

Il linguaggio di program¬ 
mazione è il Basic, strumen¬ 
to ormai familiare a molti e 
soprattutto versatile e po¬ 
tente anche per le applica¬ 
zioni grafiche. La parte ma¬ 
tematica sui cui si fondano 
tutte le routine di calcolo è 
invece veramente ridotta al 
minimo indispensabile, in 
modo che il lettore non sia 
costretto a impegnarsi nella 
comprensione di formule 
che possono non essergli fa¬ 
miliari. Ne risulta una facili¬ 
tà di lettura che rende la ma¬ 
teria piacevole e interessan¬ 
te rimandando a una speri¬ 
mentazione sulla tastiera lo 
sviluppo di alcuni dei temi 
trattati. 

Un capitolo dell’opera è 
dedicato alla creazione di 
grafici e tabelle grafiche di 
cui oggi si fa sempre più uso 
in campo professionale per 
"porgere" dati che debbono 


essere valutati nel loro com¬ 
plesso, prima di una analisi 
approfondita dei singoli 
valori. 

Un Ile 

fatto di carta 

"Il personal computer Ap¬ 
ple //c" è il titolo invitante 
del libro di Danny Good¬ 
man edito da Supernova. 
Esplicativo è il sottotitolo 
che specifica Che cosa è , A 
che cosa serve. 

Si tratta di un manuale de¬ 
stinato a coloro che posseg¬ 
gono un /le e che desiderano 
ampliare la propria capacità 
di sfruttarlo al meglio. L’in¬ 
troduzione è destinata ai 
neofiti, mentre il resto dei 
capitoli affronta tutti gli 
aspetti della macchina e del¬ 
le sue vaste possibilità. La 
seconda parte del libro è de¬ 
stinata all’utilizzazione della 
macchina a partire dall'e¬ 
norme biblioteca di pro¬ 
grammi disponibili, mentre 
proprio l’ultimo capitolo in¬ 
troduce gli elementi essen¬ 
ziali della programmazione. 

Utile, in coda, un comple¬ 
to elenco di rivenditori e ne¬ 
gozianti a cui rivolgersi in 
caso di problemi o per sem¬ 
plici spiegazioni, mentre in 
altre tre appendici sono 
elencate sinteticamente le 
caratteristiche principali del 
sistema e delle sue perife¬ 
riche. 

Distribuito nelle princi¬ 
pali librerie, costa 10.000 
lire. 
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sul tuo personal 


Da oggi puoi collegare il tuo personal a Pagine Gialle 
Elettroniche. Un servizio nuovo ed unico, realizzato da 
SEAT e SARIN, che trasforma il tuo personal in un grande li¬ 
bro elettronico tutto da consultare. Con semplici comandi in 
lingua italiana ti permette di avere, sul tuo personal compu¬ 
ter ed intempo reale, informazioni tecnico-commerciali su 
oltre 800.000 aziende, selezionandole da una banca dati 
continuamente arricchita. Con Pagine Gialle Elettroniche 
scegli così, su tutto il mercato, le offerte relative ai prodotti e 
ai servizi che più servono alla tua azienda. Una perfetta inte¬ 
grazione tra un sistema capillare di raccolta dati e una tec¬ 
nologia all’avanguardia nel campo della telematica è alla 
base del servizio Pagine Gialle Elettroniche, oggi disponibi¬ 
le sui'più diffusi personal computer APPLE, IBM, OLIVETTI. 

Se vuoi saperne di più, il tuo concessionario sarà iieto di 
darti ulteriori informazioni. 



PAGINE GIALLE 
ELETTRONICHE 




SARIN/AP 

























È un sistema che consente al floppy disc 
di sostenere ogni assalto, che impedisce alla 
testina di rovinarsi e ai dati di andare perduti. 

Il che sta a dimostrare che un floppy disc 
Memorex non è uguale a tutti gli altri: è 
migliore. E il sistema di saldatura è solo un 
esempio della cura infinita con cui viene 
prodotto ogni floppy disc Memorex; sia 
esso da 8”, da 5 1/4” o il nuovo 3 1/2”. 
Questa estrema accuratezza dà la garanzia 
che ogni disco Memorex è al 100% perfetto. 

La prossima volta che acquistate un 
floppy disc - o qualche centinaio 
- ricordate: non tutti i dischetti 
sono uguali... 

Memorex vi mette al 
riparo da qualsiasi 
inconveniente. 


Con penne, matite, unghie persino un 
ragazzino di quattro anni come Teo può 
infilarsi in quegli spazi aperti. 

Naturalmente è un danno enorme perchè 
se si inserisce qualcosa di molle e slabbrato 
nel disc-drive quest’ultimo può incepparsi; 
si può rovinare la testina e si possono 
perdere i dati. Questo può accadere con gli 
abituali sistemi di chiusura ma non con i 
dischetti Memorex che usa un 
procedimento esclusivo chiamato 
“Solid-Seam Bonding”. 

Con questo sistema ogni singolo 
millimetro quadrato dei lembi di tutti i 
dischi Memorex viene sigillato 
ermeticamente, rendendoli più rigidi e più 
resistenti. 


Teo Rusconi ha appena 
sfatato la leggenda 
secondo la quale i floppy disc 
sono tutti uguali 


Difatti sembrano tutti uguali finche non 
si osserva con attenzione il jacket. Qui 
termina l’uguaglianza. 

La maggior parte delle società costruttrici 
sigillano i dischi un punto qui, un punto là, 
lasciando parte dei lembi non sigillati. 

Prima o poi ai lembi accadono cose 
naturalissime: si gonfiano, si curvano, si 
raggrinziscono... in poche parole si aprono. 


GLI ALTRI DISCHETTI 

chiusi un punto qui, 
un punto là lasciano 
gran parte dei 
lembi aperti. 


DISCHETTI MEMOREX 

con lembi completamente 
saldati su tutta 
la superficie. 


BURROUGHS-MEMOREX S.P.A. 
Divisione Computer Media 
Via Ciro Menotti, 14 Tel. 02/718551 
20129 MILANO MI 
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Concessionari 
Memorex 
Computer Media 

COMPUTER MEDIA 

10138 TORINO 

Via Susa, 37 - Tel. 011 /442261 - 
441027 

CO.FIN 

13051 BIELLA (VC) 

Via Repubblica, 33 - Tel. 015/30237 

GIORGIO BRUZZONE 

16152 GENOVA 
Via Col di Lana, 5/19 
Tel. 010/418719 

LOGOTEC 

20131 MILANO 

Via Pacini, 72 - Tel. 02/292677 - 
235539 

GASP! 

20131 MILANO 

Via Pecchio, 1 - Tel. 02/225806 

IL COMPUTER 

26041 CASALMAGGIORE (CR) 

Via Pozzi, 13 - Tel. 0375/41564 

DAL CIN ELIO 

31015 CONEGLIANO VENETO (TV) 
Vìa Manin, 59/A - Tel. 0438/63144 

R E S C O 

35027 NOVENTA PADOVANA (PD) 
Via Polati, 6 - Tel. 041/415888 - 
926988 

CHI-BO 

43100 PARMA 

Borgo Antini, 3/G - Tel. 0521/207404 

TRADER LINE 

40133 BOLOGNA 

Via Battindarno, 12 - Tel. 051 /380255 

IL CENTRO EDP 

47100 SAN LEONARDO - FORLÌ 
Via Armellino, 19 - Tel. 0543/728091 

INFORMATICA 

57100 LIVORNO 

Via Scali degli Olandesi, 54 

Tel. 0586/30022 

RIGHETTI 

06100 PERUGIA 

Via XX Settembre, 70 

Tel. 075/6100072 - 6100226 

PRISMA 

60127 ANCONA 
Corso Carlo Alberto, 12 
Tel. 071/899262 

MEMORY LINE 

00162 ROMA 

Via Nomentana, 224 

Tel. 06/8320040 - 8320434 

SYNCRON DATA 

84100 SALERNO 
Via Paolo de’ Granita, 14 
Tel. 089/241410 

BYTE’S HOUSE 

90144 PALERMO 

Via Vann’Antò, 28 - Tel. 091 /2 91154 

è importante scegli 
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• Roberto Faenza, Computer- 



land, SugarCo 1985, pagg. 302, L. 
18.000.__ 

"È così importante il mondo de¬ 
gli elaboratori?" e "Ho bisogno di 
un computer?" sono due degli in¬ 
terrogativi che l’autore invita a 
porsi, prima di lasciarsi afferrare 
dalla febbre dell’elaboratore, anzi 
dalla "computermania". E l’autore, 
si badi bene, tutto è fuorché un 
nemico della tecnologia informati¬ 
ca, alla quale ha anzi attinto a pie¬ 
ne mani per procurarsi i dati neces¬ 
sari al suo lavoro e per la stesura 
del testo. Proprio dalla sua profon¬ 
da ed entusiastica conoscenza del 
mondo dell’informatica, infatti, 
viene la consapevolezza che non 
bisogna avvicinarvisi con frenetica 
leggerezza, condotti dalla moda e 
non dal bisogno. 

Il libro è la storia di un viaggio, 
appassionante, all’interno delle 


due realtà sociali che più sono se¬ 
gnate dallo sviluppo della scienza 
informatica e delle sue applicazio¬ 
ni: quella americana, con le sue fo¬ 
ghe produttivistiche, e quella giap¬ 
ponese, nella quale anche il lavoro 
con il personal computer diviene 
magico e mistico rituale. Soldi e 
computer, donne e computer, 
scuola e computer, sesso e compu¬ 
ter e così via: ecco l’America, terra 
del denaro, dei linguaggi, della psi¬ 
chiatria. Automi, prototipi e san¬ 
tuari: ecco il Giappone misterioso 
e formicolante, dove si può parlare 
a una nave e le fabbriche non han¬ 
no operai. 



• G. Castelli, F. De Cindio e C. 
Simone, Un programma in Pascal, 
Zanichelli 1985, pagg. 304, L. 
20 . 000 . 


Dal titolo sembra essere un ma¬ 
nuale per progettisti, ma è vero so¬ 
lo in parte: l’obiettivo del libro è 
quello di guidare il lettore alla 
comprensione dello sviluppo di un 
sistema informativo nel suo insie¬ 
me. Buoni programmatori sì, in so¬ 
stanza, ma anche lucidi conoscitori 
dell’architettura completa di un si¬ 
stema, anche se, magari, di ridotte 
dimensioni. 

Proprio per questo gli autori 
hanno scelto, tra i molti linguaggi, 
il pascal: il suo livello di astrazione 
permette infatti un approccio alla 
programmazione che evidenzia fa¬ 
si e livelli, problemi e soluzioni di 
un sistema software. Il tipo di ap¬ 
prendimento proposto è quello per 
analogia, travalicando quindi il so¬ 
lo studio della sintassi e della se¬ 
mantica del linguaggio; viene quin¬ 
di prospettato un problema "reale" 


(Reference), studiato in modo che 
la sua risoluzione faccia luce sulla 
gran parte dei problemi che ordi¬ 
nariamente ci si trova a dover fron¬ 
teggiare. L’impostazione e la riso¬ 
luzione del problema occupano la 
prima parte del libro, per il resto 
dedicato all’intero listato del pro¬ 
gramma in esame. 

• D. Galli, E. Ratti e P. F. Ber¬ 
nardi, La fisica col basic, Zanichelli 
1985, pagg. 360, L. 20.000. 

Tutti realizzati su misura per 
l’Apple //, i programmi raccolti in 
questo libro (sono una cinquantina 
in tutto) affrontano svariati proble¬ 
mi di fisica classica: meccanica, ter¬ 
modinamica, elettricità e magneti¬ 
smo. Ad accomunare i problemi 
analizzati è la laboriosità dei calcoli 
necessari per la loro risoluzione, 
che li rende piuttosto ostili benché 
non presentino particolari difficol¬ 
tà concettuali. La grande famiglia 
dei problemi che è invece agevole, 
e didatticamente utile, risolvere 
manualmente, viene al contrario 
ignorata da questo testo. 

Ogni problema viene introdotto 
da una breve esposizione teorica 
sui principi fisici che ne governano 
lo svolgimento e corredato, se uti¬ 
le, da accurate istruzioni per la rea¬ 
lizzazione di grafici. Destinato a in¬ 
segnanti e studenti delle scuole me¬ 
die superiori e dei primi anni del¬ 
l’università, il manuale dà per 
scontata la conoscenza del basic. 
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^ Per molti è motivo di seria 
preoccupazione conservare la salute 
mediante una dieta bilanciata. 

Il programma Dieta Personalizzata è un sistema 
di database nutrizionale che l’utente può 
personalizzare a seconda della sua costituzione 
fisica e delle sue abitudini alimentari, come 
sussidio nella pianificazione della dieta a lunga o 
breve scadenza. 

DOS 3.3 “♦•IH 
ProDOS 

APPLE //• filili 
APPLE Ut ^ll!ll 


In forma 
con Apple 


S i sa da molti anni che il peso di 
una persona dipende in gran par¬ 
te dalla quantità di cibo consumata e 
dall’intensità dell’attività fisica. La 
maggior parte dei piani di controllo 
del peso si basa quindi su un’attenta 
limitazione del numero di calorie con¬ 
sumato. 

Abbiamo in genere a disposizione 
un enorme numero di alimenti, che 
variano molto nella quantità di calorie 
e di elementi nutritivi essenziali. Per 
quanto le esigenze individuali di ener¬ 
gia e di alimentazione possano essere 
calcolate con discreta precisione, il 
calcolo quotidiano si è rivelato molto 
difficile. Di conseguenza gli schemi di 
controllo del peso vengono spesso 
semplificati classificando i cibi in alcu¬ 
ni gruppi e poi specificando il numero 
di porzioni che una persona può con¬ 
sumare per raggiungere il suo peso 
ideale. 

Le maggiori difficoltà di chi deve 
intraprendere una dieta sono dovute 
al fatto che le normali tabelle dieteti¬ 
che non prendono in considerazione i 
piatti più elaborati. Infatti è davvero 
improbabile che chi redige queste ta¬ 
belle possa conoscere la vera composi¬ 
zione dei piatti più elaborati dato che, 
solitamente, ognuno apporta delle va¬ 
riazioni personali alla ricetta di base 
che può essere stampata su un buon 
libro di cucina. È quindi inevitabile 
che le diete tradizionali diventino ben 
presto una sorta di sofisticato suppli¬ 


zio, un pedaggio assai gravoso che bi¬ 
sogna pagare per ritrovare la silouette 
perduta. 

Ma la costanza di chi è impegnato 
quotidianamente nel ritmo stressante 
della vita di oggi è certo minore di 
quanto non sia desiderabile: in una 
parola, ci si stanca ben presto delle 
diete e, rimandando a domani l’impe¬ 
gno solenne di essere più costanti, do¬ 
po qualche sacrificio e svariati tentati¬ 
vi si finisce per decidere che è meglio 
tenersi i chili superflui! 

11 programma DIETA PERSONA¬ 
LIZZATA introduce un elemento 
nuovo nell’acquisizione di abitudini di 
alimentazione sensate. La potenza del 
microcomputer viene combinata con 
. la capacità umana di apprendimento, 
per stabilire una razione quotidiana di 
cibi bilanciata e interessante. Il com¬ 
puter provvede a fornire un rapido cal¬ 
colo delle calorie, delle vitamine e dei 
minerali, assieme a consigli pertinenti 
sui livelli di consumo degli alimenti, 
sul peso ideale e sugli aumenti o dimi¬ 
nuzioni di peso previsti. Queste infor¬ 
mazioni vi permetteranno di stabilire 
l’esatta quantità della vostra pietanza 
preferita che vi consente di dimagrire 
senza la sofferenza di una dieta mono¬ 
tona e poco allettante. 

Se avete accumulato qualche chilo 
in più lavorando troppo alla tastiera, 
vi proponiamo di fare ancora un picco¬ 
lo sforzo: sarete ricompensati con un 
consulente dietetico sul vostro Apple 
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che vi suggerirà il più piacevole dei 
sistemi per ritrovare la linea. Con la 
DIETA PERSONALIZZATA potre¬ 
te inoltre chiedere all’Apple di inclu¬ 
dere nei piatti della vostra dieta anche 
quelli che non sono inclusi nel databa¬ 
se iniziale. Basterà per questo che spe¬ 
cifichiate la composizione del vostro 
manicaretto introducendo i dati in ter¬ 
mini di alimenti elementari. 

Gli ingredienti essenziali del pro¬ 
gramma comprendono: 

1. Un database di cibi fondamentali. 

2. Il mezzo di consentire all’utente di 
comunicare al computer i tipi e le 
quantità dei cibi consumati. 

3. Il calcolo degli elementi nutrizionali 
e il confronto con le necessità dell’u¬ 
tente. 

4. Le procedure per modificare il data¬ 
base in conformità con le necessità 
personali. 

Per Iniziare 

Per far girare il programma dovete 
inserire il dischetto e battere RUN 
DIETA PERSONALIZZATA. 
Compare per prima cosa una pagina 
d’intestazione, e dopo aver premuto 
un tasto qualunque vedrete un’ avver¬ 
tenza. Qualora vogliate ricorrere all’a¬ 
iuto di un medico prima di metter ma¬ 
no al programma, come suggerito nel¬ 
l’avvertenza, vi consigliamo di men¬ 
zionare il programma nel corso della 
visita. È infatti molto probabile che il 
medico possa suggerirvi qualche inte¬ 
ressante estensione e/o modifica. 

Dopo l’avvertenza vi sarà presenta¬ 
to un menù di otto opzioni, come mo¬ 
stra la figura 1. Esamineremo queste 
opzioni nell’ordine in cui sono elenca¬ 
te nel menù. 


Data file personali 

Questa parte del programma istitui¬ 
sce un file con i dati personali dell’u¬ 
tente. Essi sono essenziali per far fun¬ 
zionare a dovere altre opzioni del pro¬ 
gramma. Una volta battuto 1, senza 
RETURN, viene evidenziato: 

DRIVE DI LAVORO SLOT 6 DRI¬ 
VE 1 (S/N) 

Se il dischetto con i dati è nel drive 
collegato allo slot 6, drive 1, premete 

S. Una risposta N permette la selezio¬ 
ne di altri drive. 

Entrambe le vie porteranno alla fine 
alla richiesta da parte del computer del 
nome dell’utente. Vi consigliamo di 


tenere i rapporti con il computer sulla 
base del nome di battesimo, dato che 
riceverete spesso la richiesta di battere 
il nome. 

Se siete gelosi dei vostri dati perso¬ 
nali è questo il punto adatto per ag¬ 
giungere al vostro nome due o tre ca¬ 
ratteri di controllo nascosti. In questo 
modo i file dovrebbero essere fuori 
della portata di eventuali occhi indi¬ 
screti (può sempre succedere di dover 
prestare il proprio dischetto a qualcu¬ 
no!). 

Dopo aver battuto il nome e premu¬ 
to RETURN riceverete una serie di 
domande personali sull’altezza e sul 
peso. Alle domande a scelta multipla 
dovrete rispondere con la pressione di 
un singolo tasto come mostrato nella 
figura 2. Se è tutto corretto battete S e 
vi verrà presentata la stima fatta dal 
computer sul vostro peso ideale sulla 
base delle informazioni che avete ap¬ 
pena fornito all’Apple. 

Premete adesso ancora un tasto 
qualsiasi per ricevere la richiesta di 
scegliere fra vari livelli di attività che vi 
sono abituali. Se ritenete che il vostro 
livello di attività cade fra due delle 
categorie che vi vengono proposte, 
potete scegliere un numero decimale 
situato in qualsiasi punto intermedio 
fra due delle cinque categorie. 

Battuta la vostra scelta, seguita da 
RETURN, l’Apple fornisce una stima 
del numero di calorie che potete inge¬ 
rire per mantenere il vostro peso idea¬ 
le. Non è necessario prendere nota di 
queste cifre, ogni tanto il programma 
vi ricorderà questo dato avvertendovi 
se il numero di calorie che avete deciso 
di ingerire è superiore o inferiore a 
quello calcolato per il mantenimento 
del peso. 

Le due domande successive vi chie¬ 
dono se volete salvare i vostri dati per¬ 
sonali su dischetto e avviare un nuovo 
record del peso. Quando usate il siste¬ 
ma per la prima volta occorre una S 
per istituire due data file personali 
identificati dal vostro nome. Una S in 
risposta a queste due domande cancel¬ 
la (qualora esistano) i dati personali 
che avevate fornito in precedenza, e 
perciò potrete usare questo sistema 
per revisionare i livelli di attività, mo¬ 
dificare il dato della struttura fisica o 
cominciare un nuovo record del peso. 
Con N si lasciano semplicemente in¬ 
tatti i dati originali. 

'Ultima domanda in questa sezione 
del programma è; 


VUOI CREARTI UN DATA BASE 
DI CIBI (S/N) 
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Figura 1 

- Moduli principali del programma. 
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Figura 2 - Dati personali. 
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Figura 3 - Scelte di analisi dell’alimentazione. 


Risponderete N se avete acquistato 
il dischetto o se avete già creato il vo¬ 
stro database. Occorre invece che ri¬ 
spondiate S se avete digitato il pro¬ 
gramma dal listato e siete pronti a in¬ 
trodurre i dati sui cibi per la prima 
volta. Se è questo il vostro caso rispon¬ 
dete SI anche alla domanda successi¬ 
va. In seguito potrete usare l’opzione 2 
per cominciare a introdurre i dati sui 
cibi. 

Se state usando il dischetto di Appli¬ 
cando con il database CIBI basta bat¬ 
tere N. In caso di indecisione potrete 
battere S seguito da un tasto qualsiasi. 
Il vostro Apple vi mostrerà il catalogo 
del dischetto per poi tornare al menù 
principale. 

Avete aggiunto due nuovi file al di¬ 
schetto. Uno contiene la vostra altez¬ 
za, struttura fisica e il livello di attività 
fisica, mentre il secondo contiene le 
unità di misura cui farà riferimento in 
futuro il computer. Se volete evitarvi 
sorprese, battete a questo punto 8 per 
mettere fine al programma e protegge¬ 
re (LOCK) i due nuovi file che avete 
creato per evitare che possano andare 
persi inavvertitamente. Battete RUN 
DIETA PERSONALIZZATA per 
continuare. 

Ora che avete predisposto i file per¬ 
sonali essenziali potete procedere sen¬ 
za l’aiuto di ulteriori istruzioni. Per i 
più incerti le righe seguenti daranno 
però una fonte di ulteriori informazio¬ 
ni per superare eventuali difficoltà. 


Analisi nutrizionale 

Avrete trovato, si spera, la via del 
ritorno al menù principale (figura 1). 
In caso contrario andate a controllare 
le prime istruzioni della sezione prece¬ 
dente. Fatto questo potete premere 5 
e dare il vostro nome (lo stesso utiliz¬ 
zato per inserire i vostri dati): vi sarà 
presentato un altro menù come si vede 
in figura 3. Premete 1 per procedere 
all’analisi dell’alimentazione quotidia¬ 
na. Vi viene poi chiesto se è il primo 
pasto della giornata o se è una registra¬ 
zione successiva. 

Questo procedimento esige qualche 
ulteriore spiegazione. Il programma è 
inteso a mantenere una registrazione 
continua del consumo di calorie per un 
giorno, e permette di mettersi alla ta¬ 
stiera dopo ogni pasto, o anche più 
spesso se si fa qualche spuntino, e di 
informarne il computer. Quando ave¬ 
te fornito i particolari della vosta ali¬ 
mentazione, il computer addiziona il 
numero delle calorie, delle vitamine e 
dei minerali e vi riferisce un rapporto 
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dettagliato. Poi registra le informazio¬ 
ni sul dischetto perché possano essere 
richiamate più tardi nella giornata. 

La prima seduta di ogni giorno è 
chiamata NUOVA. Le successive se¬ 
dute sono chiamate SEGUITO. Dato 
che questa è la prima seduta premete 
N. (Rispondendo S a questo punto si 
avrà come risultato un messaggio di 
FILE NOT FOUND e un poco ceri¬ 
monioso ritorno al prompt del BA¬ 
SIC.) 

Poi il programma chiede il numero 
di record del cibo seguente e ricorda di 
premere RETURN se avete finito. In¬ 
troducete il numero di record del cibo 
voluto prendendolo dalla lista allegata 
a questo articolo. (In alternativa ci si 
può procurare una lista di tutti i cibi 
ricorrendo all’opzione SORT/STAM- 
PA LISTA CIBI della figura 11). 

Premete RETURN e le informazio¬ 
ni sul cibo appena scelto vengono lette 
sul dischetto. Compare un display si¬ 
mile a quello della figura 4; controllate 
che il nome del cibo sia quello giusto 
sulla riga più alta, se avete richiamato 
per sbaglio un cibo non desiderato do¬ 
vete premere 0 come indicato nella 
quarta riga della videata. 

La seconda riga (figura 4) indica la 
"misura standard" sulla quale sono sta¬ 
te calcolate vitamine e calorie per il 
cibo scelto. Le ultime quattro righe 
sono un promemoria delle tre opzioni 
disponibili per misurare la quantità 
mangiata. Il 2 dopo QUANTITÀ? nel 
display indica che l’utente ha mangia¬ 
to due volte la MISURA STAN¬ 
DARD, per esempio due etti di un 
cibo con misura standard 100 grammi. 
Naturalmene potete introdurre la mi¬ 
sura standard che preferite, come ad 
esempio 150 grammi o 8 once: per far¬ 
lo dovete soltanto ricordarvi di inseri¬ 
re la cifra seguita da GR per i grammi e 
da OZ per le once. Queste opzioni 
sono previste per chi pesa le sue por¬ 
zioni. 

Il completamento dell’introduzione 
vi porterà un’altra richiesta del nume¬ 
ro di record di un cibo. Potete conti¬ 
nuare a immetere cibi con questa pro¬ 
cedura fino a quando non avete inseri¬ 
to l’intero pasto. Per completare l’in¬ 
troduzione dei dati di un pasto è suffi¬ 
ciente battere RETURN e avrete come 
risultato un display di cibi simile a 
quello visibile in figura 5. Alcune delle 
voci più lunghe sono un po’ abbreviate 
perché possano stare sullo schermo. 

Controllate la lista per vedere se ci 
siano errori e voci mancanti. Se tutto è 
esatto premete S per continuare. Un 
errore significa che dovrete reintro¬ 
durre l’intera lista. Una volta che la 
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Figura 4 - Immissione esemplificativa. 
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Figura 5 - Lista dei cibi di una sessione. 


HAI CONSUMATO 1202 CALORIE 

CON UNA NUTRIZIONE COME QUELLA DI OGGI 
IN UNA SETTIMANA PERDI CIRCA 
1 9 CHILOGRAMMI 

HAI BISOGNO DI CIRCA 3215 CALORIE PER 
MANTENERE IL TUO PESO IDEALE DI 69 
CHILOGRAMMI 

MANGIANDO 3382 PER GIORNO MANTERRAI 
IL TUO ATTUALE PESO DI 73 CHILOGRAMMI 


Figura 6 - Rapporto guadagno/perdita. 
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lista è completa, vi verrà chiesto se 
volete specificata la lista degli elemen¬ 
ti nutritivi consumati finora nella gior¬ 
nata, come si vede in figura 14. 

Potete saltare questo display e ver¬ 
rete invitati a dire se è vostra intenzio¬ 
ne mangiare altro in giornata. Rispon¬ 
dendo S avrete come risultato una re¬ 
gistrazione sul dischetto delle quantità 
totali di elementi nutritivi e del nome 
dell’ultimo cibo immesso. Vedrete la 
lista degli elementi nutritivi totali, 
espressi in forma di percentuale delle 
vostre esigenze quotidiane in modo da 
consentirvi di "fare un piano" per il 
prossimo pasto. Un’ultima battuta di 
tasto mette fine alla seduta. Gli ali¬ 
menti dell’ipotetica prima colazione 
sono memorizzati sul dischetto. 

È probabilmente il momento op¬ 
portuno per far girare di nuovo il pro¬ 


gramma e provare la routine del pran¬ 
zo. La procedura è la stessa di prima, 
con un paio di eccezioni. Quando vie¬ 
ne chiesto se il record quotidiano è 
nuovo o un seguito della nutrizione di 
quel giorno, dovete ovviamente ri¬ 
spondere S. Vengono allora lette sul 
dischetto le informazioni sulla colazio¬ 
ne, e verrà riproposta di nuovo la lista 
degli elementi nutritivi insieme con il 
nome dell’ultimo cibo introdotto in 
memoria. 

Dovrete continuare a inserire i dati 
dei vostri pasti premendo S e conti¬ 
nuando l’introduzione con lo stesso si¬ 
stema che abbiamo già visto. Gli ele¬ 
menti nutritivi saranno aggiunti a 
quelli della prima colazione e il tutto 
sarà salvato sul dischetto, in sostitu¬ 
zione della lista della prima colazione. 

Adesso facciamo una prova dell’ul¬ 


tima seduta della giornata. Fatto gira¬ 
re di nuovo il programma immettete 
l’ultimo pasto come sopra. Quando vi 
viene chiesto se intendete mangiare 
altro, la vostra risposta sarà N. Vi ven¬ 
gono allora chiesti il peso corrente e la 


Listato 1 - DIETA PERSONALIZZATA 


2 

3 

4 

5 

6 

7 

8 
10 
20 
30 
40 
50 

60 


65 

70 


75 

80 


90 

100 

200 

205 

210 

215 

220 

225 


230 

235 

240 

245 

250 

255 

260 

265 


REM *##*#*******#«*#**#**# 
REM «DIETA PERSONALIZZATA* 
REM * BY D.R. PENDERGAST * 
REM * COPYRIGHT (0 1985 * 
REM * BY APPLICANDO * 
REM * & MICROSPARC, INC * 
REM ********************** 
ONERR GOTO 15000 


"(C) 1985 BY APPLICANDO & MICROSP 

PRINT 'DIETA': VTAB 6: HT 
": HTAB 7: VTAB 7: PRINT "P E 


'PIANIFICATORE DI DIETE 


REM ««DIETA PERSONALIZZATA** 

POKE 768,0: P0KE 769,0 
REM ««INTESTAZIONE** 

TEXT : HOME : GOSUB 305 
VTAB 20: HTAB 3: PRINT 
ARC" 

VTAB 5: HTAB 15: INVERSE : 

AB 13: PRINT ' 

RS0NAL1 ZZATA' 

NORMAL : VTAB 14: HTAB 4: PRINT 
PERSONALI' 

GOSUB 785: HOME :AAI = 'DIETA PERSONALIZZATA':A1I = 'AW 
ERTENZE*: VTAB 6: HTAB 3: PRINT 'I SUGGERIMENTI DI PESO 
E NUTRIZIONE': VTAB 8: HTAB 3: PRINT 'CONSIDERANO UOMINI 
E DONNE DI ETÀ”; VTAB 10: HTAB 3: PRINT "COMPRESA FRA 

1 25"; 

PRINT " E I 50 ANNI.’ 

VTAB 13: HTAB 3: PRINT 'SONO ESCLUSE LE DONNE IN GRAVIDA 
NZA,": VTAB 15: HTAB 3: PRINT 'E' CONSIGLIABILE RIVOLGER 
SI A UN': VTAB 17; HTAB 3: PRINT*'MEDICO PER MAGGIORI IN 
FORMAZIONI": VTAB 19: HTAB 3; PRINT "ED EVENTUALI CONTRO 
INDICAZIONI." 

GOSUB 260: GOSUB 305: GOSUB 785 
GOTO 1500 

REM ««SUBROUTINE** 

REM ««VERIFICHE** 

VTAB 23: CALL - 868: PRINT 'CORRETTO (S/N) ";GI;: GET 
Yl: PRINT Yl; RETURN 
REM ««INSERIMENTO DATA*# 

PRINT "BATTI ":: INVERSE :CV * PEEK (37): GOSUB 225:PI 
(K) * Q$s RETURN 

PRINT TKK) : : NORMAL : PRINT ':GI: PRINT VII; TAB( T 
V(K) + 3):V2$: VTAB (CV + 2): HTAB 2; INPUT Ql: VTAB (C 

V 4 1): HTAB < LEN (Tf<K)) + 9): CALL 
RETURN 

REM ««APRE I FILE DA SCRIVERE*# 

PRINT DI'QPEN " ;FILEI",L*;RL;",S H ;SX; B 
PRINT DIORITE' FILE*' R' RX 
RETURN 

REM ««OPZIONE Di USCITA** 

PRINT "BATTI INVERSE : PRINT 'RETURN" 

1NT * PER USCIRE':: RETURN 
REM #* CENTRATURA** 

VTAB 2: HTAB (20 - LEN (AAI) / 2): INVERSE s PRINT AAI 



958: PRINT 04: 


■D'iDX 


NORMAL : PR 


270 

271 

272 
275 
280 
285 
290 
295 
300 

305 

310 

315 

320 

325 

330 

335 

340 

345 

350 

355 

360 

365 

370 

375 

380 


385 

390 

395 

400 

405 

410 

415 

420 

425 

430 

435 


: NORMAL 

VTAB 3: HTAB 2: PRINT Bl: VTAB 3: INVERSE : HTAB (20 - 
LEN (All) / 2): PRINT All: POKE 34.3: NORMAL : RETURN 
PRINT DI'VERIFY * 1 ';FILEI",S*;SX;',D";ÒX 
RETURN 

REM ««APRE I FILES DA LEGGERE** 

PRINT DI 8 OPEN ";FILEI\L*jRL:",S"jSX:\D":DX 
RX = INT (RX): PRINT W'READ" FILE* ,R';kX 
RETURN 

REM ««LISTA I DATA DEI CIBI** 

HOME : PRINT : F0R K = 1 TO NF: PRINT Ri". *:TI(K)}' - 
':: INVERSE : PRINT Pf(K): NORMAL : NEXT K: RETURN 
REM «DISEGNA CONTORNO* 

VTAB 23: FOR K = 1 T0 39: PRINT '*';: NEXT K: PRINT : V 
TAB 1; FOR K = I TO 39: PRINT '«";: NEXT Kf PRINT 
FOR K = 1 TO 22; PRINT "*';: HTAB 39: PRINT NEXT K 
: RETURN 

REM ««LEGGE LA LUNGHEZZA DEI RECORD E DEI CAMPI*# 

PRINT DI"OPEN"; FI LEI « BCI;',S"jSXj",D'jDX 

PRINT DI'READ*: FI LEI « BCI 

INPUT NF: INPUT RL: DIM TK2 * NF).TV(NF),P4<NF) 

FOR K = 1 TO NF; INPUT TKK): INPUT TV(K): NEXT K 

PRINT DI'CLOSE'FILEI + BCI 

RETURN 

REM ««APRE I FILES DA LEGGERE** 

PRINT DI'OPEN "sFILEI" L';RL;",S';SX}",D";DX 
PRINT DI'READ 1 |?ILEI',R0' 

RETURN 

REM ««INTESTAZIONE PAGINA** 

HTAB 3; PRINT *N,*:: HTAB 15: PRINT "CIBO*:: HTAB 30: P 
RINT "N, M j! POKE 36,42: PRINT "CIBO 11 * * V ;! POKE 36,57: PR1N 
T "N. B |{ POKE 36,69: PRINT "CIBO" 

PRINT 

PP ■ PP MiBL ■ 0 
RETURN 

REM *# STAMPANTE ACCESA ** 

HOME : PRINT : PRINT 'STAMPANTE NELLO SLOT N. ';G4: INP 
UT SLOT 

IF PEEK < - 12506) = 183 THEN GOTO 425 
PRINT DI : 1 PR£1"i PRINT 

POKE - 12527,0: POKE - 12526.82: POKE - 12528.7 
PRINT DI'PRé*; SLOT : POKE - 12527,0: POKE - 12526,82: 
POKE - 12528 7 
RETURN 

REM ««STAMPA I DATA DEI CIBI«# 


20 
























■■■■■■■■ 


data: introduceteli nella maniera indi¬ 
cata prima. Noterete che dopo l’intro¬ 
duzione del peso viene rammentata la 
scelta di unità fatta: potete correggerla 
se lo ritenete necessario. Seguono al¬ 
lora, uno dopo l’altro, i rapporti di fine 
giornata, come si vede nelle figure 6 e 
7, e un rapporto simile a quello della 
figura 12. Un’ultima battuta di tasto 
salva sul dischetto le informazioni sul 
peso, sulla data e sulle calorie e mette 
fine alla contabilità della giornata. 

Il sottomenù ANALISI DELL’A¬ 
LIMENTAZIONE comprende un’al¬ 
tra opzione intitolata ANALISI A 
LUNGO TERMINE. È bene che dia¬ 
te un’occhiata adesso: il rapporto mo¬ 
stra la perdita o il guadagno totale di 
peso in un periodo allo studio, e il 
consumo medio di calorie dell’utente 
per il confronto con il peso ideale. 


Diventa adesso evidente l’utilità 
delle informazioni che fornisce il pro¬ 
gramma. Non solo avrete un valido 
aiuto nella programmazione dei pasti 
ma saprete anche con esattezza quante 
calorie avete già consumato nella gior¬ 
nata e quante ve ne restano a disposi¬ 
zione per continuare il programma di 
dieta che avete impostato (magari con 
l’aiuto di un medico). Le informazioni 
sui principali elementi nutritivi per¬ 
mettono inoltre di regolare i tipi di 
cibo in modo che la dieta sia bilancia¬ 
ta. Infine il rapporto a lunga scadenza 
permette di sorvegliare i progressi che 
andate facendo con il procedere del 
programma nutrizionale impostato. 

Se dopo un periodo di prova vi ritro¬ 
vate affamati senza essere riusciti a 
perdere nemmeno un etto, questo 
programma vi viene ancora incontro 


con altre informazioni utili. Potete in¬ 
fatti provare a modificare il vostro li¬ 
vello di attività in modo da trovare il 
giusto compromesso tra le vostre esi¬ 
genze alimentari e la ricerca di una 
linèa migliore. I rapporti di fine gior¬ 
nata vi diranno qual è il tasso della 
perdita di peso settimanale che potete 
prevedere in base al consumo calorico 
effettivo. 


Analisi delle ricette 

Diverse caratteristiche aggiuntive 
del programma sono intese a ridurre lo 
sforzo necessario per verificare la pro¬ 
pria alimentazione. È improbabile che 
i dati sui cibi fondamentali forniti nella 
lista dei cibi comprendano tutti i piatti 
che normalmente mangiate. L’opzio- 


440 HTAB 3} PR1NT RXU)ji HTAB 7\ FRINÌ P*(l);: HTAB 30i PR 
INI RX(l)j! HTAB 34: PRINT PK2)ji POKE 36,5?! PRINT RX 
0)st POKE 36,61 ! PRINT PIO) 

445 RETURN 

450 REM ««LETTURA QUANTITÀ' E UNITA' DEI CIBI DALLE STRI 
NGHE«« 

455 LE s LEN (Ai) iER s 0 

460 FOR K = 1 TO (LE - 2):YI = MIN <AI,K,l)s IF Yl = *0" 
OR Yl = V THEN 470 

465 Y = MAL (Yl)■ IF Y = 0 THEN ER = 1 : RETURN 
470 NEXT K 

475 IF R1GHTI (AI.2) = "GR B THEN CO = UAL ( LEFTI (A*,LE 

- 2)) / 100: RETURN 

480 IF RIGHTI (Al,2) = "QZ" THEN CO = UAL ( LEFTI (Al,LE 

- 2)) « .28375: RETURN 

485 FOR K = 1 T0 LE:YI = MIDI (AI,K,1): IF Yl = "0" OR Yl 
= V THEN 495 

490 IF UAL (Yl) = 0 THEN ER = 1g RETURN 
495 NEXT K 

500 CO = UAL (Pl(3)> « UAL (Al)sAI = Al ♦ 11 « (" +'PI<2) 
4") B iAI = LEFTI (Al,19); RETURN 
505 PRINT QQI"(S/N) 1 |GI|: GET Al! PRINT Al! IF Al = "S" THE 
N YES = 1 ! RETURN 

510 IF Al = "N" THEN YES = 0i RETURN 
515 INUERSE ! PRINT "BATTI 'S' 0 'N' ...*! N0RMAL ! GOTO 50 
5 

520 REM ««LIST1NG QUANTITÀ DEI CIBI#* 

525 UTAB 4s FOR K = 1 T0 NI: PRINT PSI(K)j TAB( 21):CSI<K>: 
NEXT KjQQI = "CIBI E QUANTITÀ' 0K ? * ! UTAB 24 ! G0SU 
B 505! POKE 34,0! RETURN 
530 REM ««L1ST1NG DELLA NUTRIZIONE#* 

535 AAI = "COMPOSIZIONE DEGLI ALIMENTI"sAil = " ASSIMILATI 
NELLA GIORNATA "j G0SUB 260! HOME ! PRINT ! PRINT 
540 PRINT TAB( 6):"T0TALE CALORIE "i! INUERSE ì HTAB 26! P 

RINT PS(4)! NGRMAL ! FOR K = 5 TO NFs PRINT TAB< 6)|TI 

(K)j TAB( 26)!! INUERSE ! PRINT PS(K)s NORMAL ! NEXT Ki 
POKE 34.0! RETURN 

545 REM «SALUA PASTO PAR2IALE DELLA GIORNATA* 

550 FOR K - 4 T0 NFiPUK) = LEFTI ( STRI <PS<K>),TU(K))! N 
EXT K:RX = OlFILEI = "PASTO PARZIALE DI B + NAMEI 
555 30SUB 230! FOR k * 1 TO NF: PRINT PI(K)ì NEXT Ks PRINT 
GIOIOSE "[FI LEI; RETURN 

560 REM ««LEGGE PASTO PARZIALE DELLA GIORNATA** 

565 RX = 0:FILEI = "PASTO PARZIALE DI u + NAMEI 

570 MUI - "NON HAI UN FILE CON UN PASTO PARZIALE"! GOSUB 27 

l! GOSUB 275i FOR K = 1 TO NF: INPUT PI(K)!PS(K) « UAL 
(PI(K»! NEXT K: PRINT DI B CL0SE"|F1LEI 
575 GOSUB 530 

580 UTAB 22: PRINT TAB( 2)j"ULTIM0 CIBO "; : INUERSE ! HTA 
B 20! PRINT P*(ii 1 

585 QQI * "ERAUAM0 PIASTI QUI"! UTAB 24ì HTAB 5s GOSUB 505 
„ {FILE! = "CIBI 1 * RETURN 
590 REM ««PESO IDEALE#* 

595 IF SEX* * *M* AND (H > * 61 AND H < * 75) THEN 620 


600 IF SEX* = "F" AND (H ) - 56 AND H < = 70) THEN 620 
605 TEXT ! HOME ! UTAB 3: PRINT "NON RIENTRI NELLE MIE P0SS 
IBILITA' "! PRINT ! PRINT "DI CALCOLO DEL PESO IDEALE." 

! PRINT ! PRINT "SONO LIMITATO AD UN'ALTEZZA COMPRESA*! 
PRINT ! 

610 PRINT "TRA 156 CM E 190 CM PER GLI UOMINI E"; PRINT ! P 
RINT "TRA 142 CM E 178 CM PER LE DONNE. 1 ! UTAB 20:QQI = 
"PRONTO PER TORNARE AL MENU GOSUB 505! IF YES THEN 
1550! 

615 GOTO 2020 

620 HN = H / 6l!BQ = 1.1:81 = - 1.8275:82 = 1.72116: IF SE 

XI = "F" THEN HN = 61 * HN / 56:B0 = 1.762:81 = - 2.95 

:B2 = 2.1889 
625 DE = .03:FR = 116 
630 IF F* = "M" THEN DE = ,045iFR = 124 

635 IF F* = "L" THEN DE = .0ó:FR = 134 

640 IF SEX* = *F" THEN FR = 95 
645 IF (SEX* = "F") AND (F* = "M") THEN FR = 101 

650 IF (SEX* = "F") AND (F* = "L") THEN FR = 112 

655 WT = FR * (B0 ♦ B1 * HN + B2 * HN * 2) 

660 IF U* = "C" THEN WT = WT / 2.20 

665 WU = INT (WT 4 DE * WT + .5)sUL = INT (WT - DE * UT + 

.5) 

670' tei * "LBS" ! IF U* = "C" THEN AA* = "KG" 

675 RETURN 

680 REM ««DISPLAY CALORI E/PESO IDEALE** 

685 CK = 28.08 - .717 * AL + .9428 * AL * 2 
690 IF SEX* = "M" THEN CK = 1,15 * CK 
695 GOSUB 590 

700 CC = (WT / 2.2) * CK! IF U* = "C" THEN CO = CO # 2.2 

705 CL = ( INT <(CC - DE * CC + .5) / 100)) * lOOsCU = ( IN 

T ((CC + DE * CC + .5) / 100)) « 100 
710 RETURN 

715 TEXT ! HOME ! REM ««INPUT DEL NOME** 

720 UTAB 10! HTAB 5: PRINT "BATTI IL TUO NOME. P0TR0' COSI' 

1 ‘ UTAB 12! HTAB 8: PRINT "IDENTIFICARE IL TUO FILE" 

723 UTAB 14: HTAB 10! PRINT "NOME "s UTAB 14: HTAB 16: INPU 

T NAME*i DN LEN (NtflEI) * 0 GOTO 720! QN ASC ( LEFT* 

(NAMEI.1)) < 65 OR ASC ( LEFT* (NAMEI,1)) > 90 GOTO 72 
0! RETURN 

725 TEXT ! HOME ! REM ««DATA/PESO** 

730 UTAB 10s HTAB 2: PRINT "INSERISCI LA DATA (GG/HM/AA) "| 

G*| ! INPUT DA* 

735 IF LEN (DAI) < 8 OR LEN (DA*) ) 8 THEN 730 
740 K = UAL < LEFT* (DA*,2))i IF <K < 1) OR <K ) 31) THEN 
730 

745 K * UAL ( MIDI (DAI,4,2))! IF K < 1 OR K ) 12 THEN 730 

750 K = UAL ( RIGHTI (041,2))* IF K < 81 OR K ) 99 THEN 73 

0 

755 IF (( MIDI (DAI.3.1) = CHRI (47)) = 1) AND << MIDI (DA 
1,6.1) = CHRI (47» B 1) THEN GOTO 765 
760 GOTO 730 

765 TEXT ! HOME ! UTAB 12: HTAB 16! PRINT DAI! UTAB 14: HTA 
B 6:QQ$ = "E' CORRETTA LA DATA ? ": GOSUB 505! IF YES < 

Continua 
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ne di VALUTAZIONE RICETTE 
del menù principale (figura 1) vi per¬ 
mette di stabilire il valore nutrizionale 
delle porzioni a cui siete abituati per i 
vostri piatti preferiti. 

Procedete nel menù principale fino 
alla VALUTAZIONE RICETTE. 
Dopo aver letto qualche istruzione ar¬ 


riverete alla richiesta, ormai familiare, 
del numero di record di un cibo. Que¬ 
sta parte del programma, che stabili¬ 
sce i tipi e le quantità di cibi presenti 
nella ricetta, è presa dalll’ANALISI 
GIORNALIERA DELL’ALIMEN¬ 
TAZIONE. 

La lista completa degli ingredienti 


di un risotto ai funghi è visibile in figu¬ 
ra 8. L’assicurazione da parte vostra 
che l’elencazione è esatta vi porta al 
display di figura 9. Dato che molte 
preparazioni perdono di peso durante 
la cottura, vi viene data l’opportunità 
di ritoccare il peso in modo che rifletta 
il cambiamento. Non occorre che fac¬ 
ciate questa correzione se non avete 
intenzione di pesare le porzioni di ci¬ 
bo. 

Il completamento di questo passo 
porta a una richiesta del nome della 
ricetta. Comunicate il nome comple¬ 
tandolo con il numero delle porzioni 
che la ricetta fornisce. Ricevute queste 
informazioni, il computer le sistema 
nel formato tipico del database dei cibi 
e memorizza le informazioni sul di¬ 
schetto come ulteriore voce di cibo. 

In figura 10 è visibile una stampa dei 
dati relativi al risotto ai funghi. La se¬ 
conda riga indica che la misura tipica è 
120 grammi. La frazione (1/1) alla fine 
della riga indica che la porzione tipo 
comprende l’intera ricetta. Gli ele¬ 
menti nutritivi della lista sono dati tut¬ 
ti sulla base di 100 grammi di cibo. 
L’ammontare effettivo degli elementi 
nutritivi del risotto è quindi 1.2 volte 
maggiore dei numeri mostrati. 






BURRO 50GR 

CIPOLLE MOTORE 28GR 

FUNGHI COTTI 28GR 

OLIO DI ARACHIDE 28GR 

PARMIGIANO 48GR 

RISO BRILLATO 32QGR 

"INO DA PASTO COMONE8 5 * 


188 ML 


QUANTITÀ' 


< S/N >■ 


Figura 8 - Ricetta esemplificativa: risotto coi funghi. 


Le visualizzazioni 
dei dati dei cibi 

L’opzione 3 del menù principale, 
DISPLÀY/STAMPA CIBI (figura 1), 
conduce a un sottomenù (figura 11) 
che fornisce qualche inumazione ag¬ 
giuntiva per migliorare l’analisi quoti¬ 
diana dell’alimentazione. 

L’opzione VALUTAZIONE NU¬ 
TRIZIONALE permette di studiare 
la lista dei cibi e di confrontare il loro 
contenuto nutrizionale con le vostre 
esigenze personali. Le informazioni 
fornite da questa parte del programma 
vanno usate in combinazione con i 
rapporti relativi a una parte del giorno 
ricavati dall’ANALISI GIORNA¬ 
LIERA (figura 3), per giungere a una 
dieta bilanciata alla fine della giorna¬ 
ta. Come diretta conseguenza appren¬ 
derete di più sugli aspetti nutrizionali 
delle varie porzioni di cibo. Un rap¬ 
porto esemplificativo (figura 12) mo¬ 
stra le percentuali di possibili esigenze 
personali soddisfatte da una bistecca 
di filetto. 

L’opzione di SORT/STAMPA LI¬ 
STA CIBI fornisce un elenco alfabeti¬ 
co dei cibi compresi nel database, ed è 


molto utile per aggiornare la lista dei 
cibi quando debbono essere aggiunti 
dei cibi e delle nuove ricette. 

RICERCA CIBI è un’ultima fun¬ 
zione di ricerca con il computer: quan¬ 
do non riuscite a individuare nella lista 
dei cibi una particolare voce, questa 
opzione vi consente di avere in un atti¬ 


mo una lista ristretta in una data cate¬ 
goria di cibi. Inoltre con questa funzio¬ 
ne potete avere la visualizzazione di 
tutti i nomi dei cibi (la velocità di vi¬ 
sualizzazione è controllata dalla padd- 
le 1, mentre il blocco e lo sblocco del¬ 
l’immagine a video avviene con CTRL 
S). Qualora decidiate di chiedere la 



Seikosha ti invita nel meraviglioso mondo delle sue stampanti. 

Un mondo fatto di progresso, di elevatissima qualità, velocità e silenziosità di stampa. 
Seikosha oggi ti propone la più vasta gamma di stampanti, compatibili e affidabili, ideate 
per esaltare le prestazioni di ogni tipo di computer. 

All'altezza di ogni esigenza, anche della tua. 


SEIKOSHA 

Distribuzione esclusiva in Italia: GBC Divisione Rebit. 






■■Mi 


HHHHHBHHHHHi 


> 1 T HEN 725 

770 HCfiE : VTAB 12: HTAB 7: PRINT MI TUO ATTUALE PESO OGGI 
VTAB 14: HTAB 7: PRINT "E' ": VTAB 14: HTAB 10: INPU 
T UA*; VTAB 14: HTAB 10: PRINT UA*:" LIBBRE": VTAB 14: 
HTAB 10: IF U* = "C" THEN PRINT WA*j" CHILI n 
775 VTAB 16: HTAB 7:90* = "E' TUTTO CORRÈTTO ": GCSUB 505: 

IF YES < > 1 THEN 770: 

780 RETURN 

735 REM «UN TASTO QUALSIASI PER CONTINUARE#* 

790 VTAB 23: HTAB 3: INVERSE : PRINT n UN TASTO QUALSIASI P 
ER CONTINUARE *: VTAB 23: HTAB 37: SET Y$: PRINT Y*::: 
NORMAL : RETURT4 
795 REM ««TOTALI»* 

800 NLK4) = CI:NU<5) = .2 * CI / 4:NLK6) = .3 * CI / 9:NU(7 
) = .5 * CI / 4 

805 NU(8) = 800:NU<9) = lOsNUCll) = 5000:NU(12) = 1.2:NU(13 
) = 1.5 ;NU< 14) = lé:NU(15) = 45:NUUé) = 99:NU(10) = 99 
810 IF SEX* = "F" THEN NLK9) = 1B:NU<1 1 ) = 4000:NU(12) = 1. 

0:NU(13) = 1,2:NU(14) = 13 
SI5 RETURN 

820 REM ««PERCENTUALI*» 

825 AA* = " PERCENTUALI NUTRITIVE *:A1* = "DEL FABBISOGN 
0 GIORNALIERO": GOSUB 260: HOME : PRINT : PRINT 
830 POR K = 4 TO NF: PRINT TAB( 8);PS*<K): TAB( 26)ss IME 
RSE ; PRINT P*(K): NORMAL : NEXT'K: POKE 34,0: RETURN 
835 REM ««LEGGE DATI PERSONALI** 

840 POKE 34,0: TEXT : HOME : VTAB 12: HTAB 2: PRINT “STO CA 

RIGANDO I TUOI DATI PERSOTELI";RX = 0:RL = 30.-FILE* = 8 
DATI PERSONALI DI n + NAME* 

843 m = "DEVI PRIMA USARE L'OPZIONE 1 DEL MENU": GOSUB 27 
1: GOSUB 275: INPUT F*,SEX*,U*,H,AL: PRINT DVCLQSE" ;FI 

845 FOR K = 1 TO 2000: NEXT : HOME : VTAB 12: HTAB 10; PRIN 

T “HO TROVATO ";NAME*: FOR K = 1 TO 2000: NEXT : RETURN 

850 GOSUB 320: REM **LETTURA FILE DEI CIBI E SETUP** 

855 DIM PS(NF),P(NF),PS*(20),CS*<20) 

S60 RX = 0: GOSUB 275; INPUT REC: PRINT DVCLQSE";FILE*: RE 
TURN 

865 REM **INPUT QUAfTTITA DEI CIBI** 

870 GOSUB 275: FOR K = 1 TO NF: INPUT P*(K): NEXT K: PRINT 
DVCLQSE": FI LE*:NI = NI ♦ 1 

875 HOME : VTAB 6: HTAB 1: PRINT "IL PROSSIMO CIBO E' ":P*< 
1): VTAB 8: HTAB 1: PRINT "MISURA STANDARD : ";P*<2) 
880 VTAB 15: HTAB 15; INVERSE : PRINT "ISTRUZIONI": NORMAL 
: VTAB 17: HTAB 4: PRINT “HAI TRE POSSIBILITÀ DI INPUT 
H : VTAB 19: PRINT "USANDO LA MISURA STANDARD (ES. 

1) 

885 VTAB 21: PRINT "SPECIFICANDO IN GRAMMI (ES. 114GR)": 

VTAB 23: PRINT "SPECIFICANDO IN ONCE (ES. 40Z) B 
890 VTAB 13: HTAB 6: PRINT "BATTI FLASH : PRINT "0" : : N 
ORMAL : PRINT - SE HAI SBAGLIATO CIBO" 

895 VTAB 11: HTAB 12: PRINT "QUANTITÀ R : VTAB 11: HTAB 20: 
INPUT A* 

900 GOSUB 455: RETURN 

905 REM **CALCOLO PERCENTUALI*# 

910 GOSUB 795: FOR K = 4 TO NF:P(K) = INT <PS<K) * 100 / N 
U(K))s NEXT 

915 FOR K = 4 TO NF:P*(K) = STR* <P(K» ♦ " X": NEXT 
920 P*(10) = "NON SPECIFICATO":P*(16) = P*(10) 

925 TEXT : HOME : GOSUB 820: RETURN 
930 REM «PROSSIMO CIBO RICHIESTO** 

935 TEXT : -HOME : NORMAL : VTAB 13: HTAB 6: PRINT "BATTI ": 

: FLASH : PRINT "RETURN":: NORMAL : PRINT 8 PER USCIRE* 
940 VTAB 20: HTAB 11: PRINT 6*:G*: VTAB 10: HTAB 6: INPUT B 
NUMERO PER IL PROSSIMO CIBO ? ";A$: VTAB 10: HTAB 38 
945 IF LEN (A*) = 0 THEN RETURN 

950 RX = INT < VAL (A*)): IF «RX < 1) OR (RX > REO) THEN 
VTAB 16: IWERSE : HTAB 5; PRINT "HAI SOLO ";RECj” RE 
CORD NEL FILE DEI CIBI”: NORMAL ; FOR K = 1 TO 2000: NE 
XT K: GOTO 935 
955 GOSUB 865: RETURN 
960 REM AGGIUNGE NUTRIENTI** 

965 PS*(NI) = P*(l):CS*(NI> = A* 

970 FOR K = 4 TO NF:P(K) = VAL (P*(K)):PS(K) = PS(K) ♦ CO 
* P(K) : NEXT K: TEXT : HOME : RETURN 
975 REM ««MESSAGGI VIDEO** 

980 TEXT ; HOME ; VTAB 5: PRINT "NON E" POSSIBILE INSERIRE 
PIU' DI VENTI": VTAB 7: PRINT "CIBI PER SESSIONE.": RET 
URN 

985 REM ««STABILISCE IL NUMERO DI RECORD** 

990 HOME :FILE* = "CIBI": GOSUB 320 :RX = 0: GOSUB 275 


995 INPUT REC:REC = REC * 1 

1000 PRINT D* e CL03E R ;FILE* ; RETURf^l 

1005 REM ««REGISTRA 'CIBO' SU DISCO** 

1010 RX = REC: GOSUB 230: 

1015 FOR KK = 1 to NF; PRINT P*(KK): NEXT KK 

1020 PRINT DVCLQSE 8 : RETURN 

1025 REM ‘ «SUBRETTINE INIZIALIZZAZIONE»* 

1030 REM ««QUESTO FILE CIBI HA AL TERMINE DEL SUO NOME UN 
CTRL-B (BC*=CHR*(2)) CHE NCN COMPARE NEL CATALOG.** 
1035 RL = 0:N = 16:FILE* = "CIBI* 

1040 FOR K = I TO N 

1045 RL = RL + TV(K): NEXT K:RL = RL ♦ N 
1050 PRINT D* "OPEN": FILE* + BC*:",S"SX;",D"DX 
1055 PRINT D*"URITE ; FI LE* + BC* 

1060 PRINT N: PRINT RL; POR K = 1 TO N: PRINT T*(K): PRINT 
T V(Kì: NEXT K 

1065 PRINT DVCLOSE" :FILE* * BC* 

1070 PRINT DVLQCK" :FILE* + BC* 

1075 PRINT WOPEN ;FILEV,L* :RL 
1080 PRINT DVURITE^FILEV^ 

1035 PRINT 0 
1090 PRINT D$ H CLOSE" 

1095 TEXT : HOME 

1100 'VTAB 12: HTAB 4: INVERSE : PRINT "PARAMETRI LISTA DEI 
CIBI FISSATI": VTAB 12: HTAB 34: FOR K = 1 TO 1500: NE 
XT K: NORMAL 

1105 HOME : PRINT D*:"CATALOG,S"SX:" J D"DX 
Ilio FOR K = 1 TO 5000: NEXT K: RETURN 
1495 REM ««SUBRQUTINE** 

1500 REM. «RIPETE MENU PRINCIPALE** 

1510 G* = CHR* (7): TEXT ; HOME 
1520 REM ««MENU PRINCIPALE** 

1530 VI = 8: DIM M*(V1):B* = " 

": REM 30 SPAZI 

1540 BC* = CHR* (2):D* = CHR* (4):G* = CHR*(?):H*= CH 
R* (8):V1* = CHR* (91):V2* = CHR* (93) 

1550 TEXT : HOME : GOSUB 305 

1560 AA* = "DIETA PERSONALIZZATA":A1* = "MENU PRINCIPALE": 
GOSUB 260: RESTORE 

1570 FOR K = 1 TO VI: READ M*(K): NEXT K 
1580 DATA "INSERIMENTO DATI PERSONALIVINSERIMENT 

0 CIBI","STAMPA/RICERCA CIBI 8 ."CAMBIA/CANCELLA CIBI", 8 
ANALISI NlfTRIZIOfTALE","VALUTA*IONE RICETTE" 

1590 DATA “DA ASSEGNARE"."FINE PROGRAMMA" 

1600 FOR K = 1 TO VI: VTAB <2 * K 4 3): HTAB 8: PRINT K;*. 

" ;M*(K) : NEXT K 

1610 VTAB 21: HTAB 15: PRINT “QUALE SCEGLI ? *:6*;V1*:" ‘:V 
2*;H*;H*: : NORMAL : GET Y*: PRINT Y*:Y = 'VAL (Y*) : IF 
Y < 1 OR Y > VI THEN 1610 

1620 VTAB 2 * Y 4 3: HTAB 8: INVERSE : PRINT Y;\ ";M*(Y): 

NORMAL : FOR KK = 1 TO 400: NEXT KK 
1630 IF Y = VI THEN 25000 

1640 SX = PEEK (768):DX = PEEK (769): IF SX > 0 OR DX = 2 
THEN 1730 

1650 QQ* = "DRIVE DI LAVORO SLOT 6 DRIVE 1 ? 8 : POKE 34,0: 
HOME : VTAB 12: HTAB 1: GOSUB 505: IF YES THEN SX = 6: 
DX = I: GOTO 1720 

1660 TEXT : HOME : 'VTAB 6: CALL - 958: PRINT "INSERISCI LO 
SLOT N. ":G*; : GET SX*; PRINT SX*:SX = VAL (SX*) 

1670 IF SX < 1 ÒR SX > 7 THEN 1660 
1680 VTAB 8: CALL - 868: PRINT “INSERISCI IL DRIVE N. ";G* 
:: GET DX*: PRINT DX* : DX = 'VAL (DX*) 

1690 IF (DX - 1) * (DX - 2) < > 0 THEN 1680 
1700 VTAB 10: CALL - 958; PRINT "SLOT £ = a :SX: PRINT "BRI 
'VE £ = ";DX: GOSUB 205: IF Y* = "N" THEN 1660 
1710 IF Y* < > "S" THEN 1660 
1720 POKE 768.SX: POKE 769.DX 

1730 Ori Y GOTÒ 2000,3000,10900,4000,5000,13000,14000,25000 
2000 REM ««ROUTINE DI INTRODUZIONE** 

2010 TEXT : HOME : GOSUB 715 

2020 TExT : HOME : 'VTAB 4: HTAB 6: PRINT “MI SERVE QUALCHE 
DATO PER": VTAB 6: HTAB 5: PRINT "STABILIRE IL TUO PES 
0 IDEALE.” 

2030 VTAB 9: HTAB 4: PRINT "QUAL'E' LA TUA CORPORATURA MEDI 
A ?": 'VTAB li; HTAB 8: PRINT *S)MALL M)EDIUM L)ARGE ?" 

: VTAB 11: HTAB 34: GET F*: PRINT F*; IF F* = "S" OR F 

* = "M" OR F* = "L s THEN GOTO 2050 
2040 GOTO 2Q30 

2050 VTAB 13: HTAB 8: PRINT "MASCHIO 0 F)EMMINA ?" : 'VTAB 1 
3: HTAB 34: GET SEX*: PRINT SEX*: IF SEX* = "F n OR SEX 

* = "M" THEN GOTO 2070 
26 6C GOTO 2050 

Continua 
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HO STABILITO IL PESO TOTALE DELLA 
RICETTA 32260 GR OR 1139 9 OZ 

PER UH CALCOLO PRECISO PUOI CAMBIARE 
IL PESO TOTALE SE CE’ STATA QUALCHE 
UARIAZIONE NELLA COTTURA 


PESO TOTALE < XX GR 0 XXOZ 


batti ia*inaai se nulla cambia 


Figura 9 - Revisione dei peso di una preparazione. 


cibo - EflaaM 

QUANTITÀ -1 
CONUERSIONE 
CALORIE 180 
PROTEINE GR 
GRASSI GR - 
CARBOIDRATI 
CALCIO MG - 
FERRO MG - 
SODIO MG - 
UITAMIHA A 
UITAMINA B 


3 UITAMINA B2 

4 NI AC INA MG 

5 UITAMINA C 

6 COLESTEROLO 


MG - B 
MG° - KJ 
MG - m 

- 

MG - B 
MG - 


S?Pti 

BATT I 


PROSSIMO EfiB = U 
«■i PER UN “RECO 
:TÌÌI1:1I PER USCIRE:: 


GSB = ULTIMO RECORD N 
IE RECORD 5 DI 153 


Figura 10 - Display esemplificativo dei dati di un cibo. 


ricerca di una specifica voce dovete 
fornire una parola chiave quando vie¬ 
ne richiesta. Per l’esplorazione dell’e¬ 
lenco dei cibi, in tutti i punti in cui si 
trova la parola chiave, occorrono vari 
minuti, per cui avrete anche il tempo 
di andare a prendere un caffè in attesa 
che la ricerca sia conclusa. 

DISPLAY/STAMPA CIBI consen¬ 
te l’esame dei dati relativi a ciascuna 
voce dell’elenco dei cibi. Le righe di 
prompt alla base dello schermo indica¬ 
no che le frecce sinistra e destra spo¬ 
steranno in su e in giù la lista. ESC 
permette di introdurre un altro nume¬ 
ro di record di cibo e RETURN mette 
fine alla rassegna con il ritorno al me¬ 
nù principale. In figura 10 si vede 
stampato un listato di dati. 

Gestione database 
dell’alimentazione 

L’opzione INSERIMENTO CIBI 
del menù principale (figura 1) vi con¬ 
sentirà di ampliare il database. Dopo 
la scelta di questa opzione sarete invi¬ 
tati a BATTERE IL CIBO; dovrete 
rispondere con il nome della voce che 
desiderate inserire (è permesso un 
massimo di 20 caratteri). 

Dovrete poi specificare la misura ti¬ 
po: potete specificare qualsiasi misura 
di porzione, parte o quantità di riferi¬ 
mento. La lista di base dei cibi (vale a 
dire i dati concernenti i 400 cibi che 
figurano sul dischetto di Applicando : 
si veda la rubrica Disk Service per le 
informazioni sull’ordinazione) segue 
la convenzione di peso in grammi o in 
once per la misura standard, per que¬ 
sta voce (vedi figura 13). 

A questo punto viene richiesto di 
BATTERE LA CONVERSIONE. 
Questo numero permette al computer 
di correlare la misura tipica con i dati 
degli elementi nutritivi nella lista. E 
definito come: peso della misura tipo 
in grammi diviso per 100, quindi se la 
misura standard di un cibo è 112 gram¬ 
mi, la conversione sarà 1.12. 

Le 13 voci successive esigono la spe¬ 
cificazione dei dati caratteristici degli 
elementi nutritivi. La prima, BATTI 
CALORIE-100 Gr, vi ricorda di in¬ 
trodurre il numero di calorie di 100 
grammi della parte commestibile del 
cibo indicato. Poi dovrete indicare le 
quantità di elementi nutritivi per 100 
grammi di parte commestibile del cibo 
in oggetto: le unità di misura sono 
espresse in grammi, milligrammi o 
unità internazionali, a seconda di co¬ 
me viene richiesto. Per la lista di base 


dei cibi è stata seguita la convenzione 
che le quantità ignote siano rappresen¬ 
tate con un trattino. 

In figura 13 potete vedere una lista 
completata per 100 grammi di uri cibo 
denominato "ipotetico". La verifica 
dell’esattezza dei dati completa l’ag¬ 
giunta al database di un’altra voce di 
cibo. Premendo N si possono fare le 
opportune correzioni. 

L’opzione CAMBIA/CANCELLA 
CIBI (figura 1) è facile da usare. Nota¬ 
te che per eliminare un record occorre 
scrivere SI per intero a confermare che 
se ne vuole l’eliminazione. Lo spazio 
lasciato sul dischetto dall’eliminazione 
di una voce è automaticamente colma¬ 
to dall’ultima voce dell’elenco dei cibi. 
Se vi sembra che uno dei vostri cibi 

Hi 


preferiti, che era stato inserito nella 
lista, sia scomparso, non è il caso di 
disperarsi. Probabilmente è stato spo¬ 
stato in avanti nel file per sostituire 
qualcosa che è stato eliminato. Il pe¬ 
riodico impiego dell’opzione SORT- 
/STAMPA LISTA CIBI vi consentirà 
di mantenere l’ordine. 

Organizzazione 
del programma 

Le prime righe del programma 
DIETA PERSONALIZZATA (linee 
0 — 100 ) visualizzano il titolo e poi l’av¬ 
vertimento che l’uso del programma è 
sconsigliato a chi non ha un’età com- 
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presa fra i 25 e i 50 anni. È inclusa 
anche l’avvertenza di consultare un 
medico. 

Poi il programma salta sopra le su¬ 
broutine (linee 200-1110) per stabili¬ 
re il menù principale (linea 1500). La 
linea 1730 invia il computer alle princi¬ 
pali opzioni del programma e a due 
sottomenù. 

Un’opzione, SORT/STAMPA LI¬ 
STA CIBI (figura 11) richiede una 
gran quantità aggiuntiva di memoria 
per leggere tutti i nomi dalla lista dei 
cibi, al fine di preparare l’operazione 


di ordinamento. Questo programma è 
memorizzato sul dischetto come pro¬ 
gramma separato e sostituisce il pro¬ 
gramma Dieta in memoria quando 
viene richiamata questa opzione. Il 
completamento del listato porta alla 
reinstallazione della Dieta. 

Il programma è ben distribuito sui 
numeri di linea disponibili e alcune 
opzioni DA ASSEGNARE del menù 
conducono ad ampi spazi aperti, quale 
invito all’utente perché fornisca propri 
moduli. 


Osservazioni 

Le informazioni di base sul cibo 
contenute nel file di testo CIBI del 
dischetto sono la pietra migliare del 
programma. Queste informazioni so¬ 
no ricavate da una tavola pubblicata 
dalla società italiana Shoum premiata 
al III incontro tra specialista e medico 
pratico (Castrocaro Terme, 1975) e da 
un vasto elenco pubblicato dal Dipar¬ 
timento dell’Agricoltura degli Stati 
Uniti che elenca la composizione di 
2483 cibi: i dati sono forniti sotto for- 


2070 VTAB 15: FRINÌ “PESO E ALTEZZA POSSONO ESSERE MISURATI 
VTAB 17: HTA8 4: N0RMAL : PRINT *1N OHIL06RAMMI 
E CENTIMETRI 1 : VTAB 18: HTAB 5: PRINT "0 DIBBRE E P 
QLLICT: VTAB 18: HTAB 32: PRINT *?": VTAB 18: HTAB 34 
: GET U* 

2080 VTAB 17: HTAB 3: PRINT U*: IF 0* = *C* OR U$ = *L* THE 
N GOTO 2100 
2090 GOTO 2070 

2100 VTAB 20: HTAB 5: INPUT 'LA TUA ALTEZZA E' ";H: VTAB 2 
0: HTAB 5: CALL - 958: PRINT B LA TUA ALTEZZA E' D ;H; 

* 3 ; : IF U* = a C" THEN PRINT “CENTIMETRI a : GOTO 2120 
2110 PRINT 'POLLICI' 

2120 'VTAB 23:QG* = * INFORMAZIONI CORRETTE ? B : G0SUB 505: 

IF N0T YES THEN GOTO 2020 
2130 IF U* = *C THEN H = .0328 * H *12 

2140 G0SUB 590: PRINT G*: PRINT G*; HCffiE : VTAB 10: HTAB 8: 

PRINT 'IL TUO PESO IDEALE VARIA*: HTAB 12: VTAB 12: F 

LASH : PRINT * DA a ;UL; B A 'jUUj' ";AA*: PRINT : PRlffT 

: PRINT : N0RMAL 
2150 GQSUB 785 

2140 TE'XT : HOME : VTAB 2: PRINT 'SCEGLI IL LIVELLO DELLE T 
UE ATTIVITÀ'*: VTAB 4: PRINT 'IN BASE ALLA TABELLA S0T 
T0 RIPORTATA.* 

2170 VTAB 8: PRlffT M. RIPOSO (MINIME ENERGIE-NO ESERCIZIO 
)": VTAB 10: PRINT B 2. SEDENTARIO (LAVORO DA SCRIVANIA 

)’: VTAB 12: PRINT *3. LEGGERO (STARE IN PIEDI-INSEGNA 

RE)": VTAB 14: PRINT *4. MODERATO (CASALINGO-GIARDINAG 
610)* 

2180 VTAB 16: PRINT *5. ATTIVO (LAVORO ATTIV0-SP0RT-DANZA) 1 
2190 VTAB 20: INPUT "FAI LA TUA SCELTA DA 1 A 5 ?*jAL: IF ( 
AL < 1) OR (AL > 5) THEN HOME : FLASH : VTAB 12; HTAB 
03: PRINT 'LIVELLO DI ATTIVITÀ-' NON PREVISTO": F0R K 
= 1 T0 2000: NEXT K: N0RMAL : GOTO 2160 
2200 HOME : G0SUB 680: 'VTAB 8: HTAB 3: PRlffT "PER MANTENERE 

IL TUO PESO IDEALE,*: PRINT : HTAB 3: PRINT "DA *:UL: 

* A " ;UU; B ":AA*:*, DEVI CONSUMARE" : PRlffT : HTAB 3: P 
RIMI 8 “;CL;', “jCUj" CALORIE PER GIORNO.* 

2210 GQSUB 785 

2220 HOfiE :QQ* = 'VUOI QUESTI DATI SALVATI SU DISCO": VTAB 
12: G0SUB 505: IF YES THEN RX = 0:RL = 30:FILE* = “DAT 
I PERSONALI DI * ♦ NANE*: G0SUB 230: PRlffT F$: PRlffT S 
EX*: PRINT U$ : PRlffT H: PRlffT AL: PRlffT D**CL0SE" ; FI LE 
*: GOTO 2240 
2230 GOTO 2250 

2240 VTAB 16: HTAB 9: PRlffT 3 IL TUO FILE SI CHIAMA*: PRlffT 
: HTAB 8: PRINT FILE*: FOR K = 1 TO 3000: NEXT 
2250 HOME :QG* = "VUOI COMINCIARE UN RECORD DI PESO *: VTAB 
12: HTAB 1: GOSUB 505: IF YES THEN RX = 0;RL = 20:FIL 
E* = "RECORD DEL PESO DI * + NAME*: GOSUB 230: PRlffT R 
X: PRINT D**CL0SE";FILE$: GOTO 2270 
2260 GOTO 2280 

2270 VTAB 16: HTAB 9; PRlffT “IL TUO FILE SI CHIAMA* : PRlffT 
: HTAB 10; PRlffT FILE*: FOR K = 1 TO 3000: NEXT 
2230 HOME :9Q* = "VUOI CREARTI UN DATA BASE DI CIBI B : VTAB 
12: HTAB 1: GQSUB 505: IF YES THEN 2300 
2290 CLEAR ; GOTO 1500 

2300 HOME : VTAB 8; PRlffT "SEI SICURO ? QUESTA OPZIONE SI U 
SA": VTAB 10: PRlffT "SE NON HAI ALTRI FILE CHIAMATI* : 
VTAB 12: PRINT "'CIBI' SUL TUO DISCO 0 SE DESIDERI"; V 
TAB 14: PRINT 'CREARE UN NUOVO DATA BASE.": VTAB 16 
2310 PRlffT 'BATTI RETURN PER VEDERE IL CATALOGO" : VTAB 18; 

INPUT "OPPURE -Sr PER CREARE IL FILE * ;Y* 

2320 IF Y* < } "SI* THEN GQSUB 1105: CLEAR : GOTO 1500 


2330 V = 16; DIM T*(V),T<2 « V'),TVC2 * V) 

2340 T*(i) = " CIBO* :T*(2) = ' QUANTITÀ* :T*(3) = * CCNVE 
RSIQNE":T*<4) = * CALORIE 100 GR":T*(5> = ’ PROTEINE 
GR":T*(6) = * GRASSI GR‘:T*<7) = * CARBOIDRATI GR": 
T*(8) = * CALCIO MG':T$(9) = * FERRO MG':T*(10)= 

* SODIO MG* 

2350 T*(ll) = "VITAMINA A M6":T*U2) = "VITAMINA B1 MG*:T 
*(13) = "VITAMI^ B2 MG":T*(14) = "NIACINA MG*:T*(15 
) = “VITAMINA C MG*:T*(16) = "COLESTEROLO MG* 

2360 TV(1) = 20:TV(2) = 20:TV(3) = Ó:TV(4) = 6:TV(5) = 6:TV 
(6) = 6:TV(7) = 6:TV(8) = 6: TV(9) = ó:TV<10) = 6: TVdl 
) = é:7VU2) = é:TV(13) = ó:TV(14) = 6:TV(15) = Ó:TV(1 
6 ) = 6 

2370 GOSUB 1025: CLEAR : GOTO 1500 
3000 REM *SUBROUTINE INSERIMEffTO DATA* 

3010 Al* = ' INSERIMEffTO DATA " 

3020 TEXT : HOME : GOSUB 260: GOSUB 985 
3030 HOME ; PRlffT : PRlffT "QUESTO SARA'' IL RECORD N. B ;REC 
3040 VTAB 23: PRINT "BATTI RETURN SU INVERSE : PRlffT T* 
(!>:: NORMAL : PRINT * PER FINIRE : 'VTAB 6 
3050 FOR K = 1 T0 NF 
3060 GOSUB 215 

3070 IF LEN (P*(l>) = 0 THEN 3160 
3080 IF LEN (P*(K)) < = TV(K) THEN 3100 
3090 PRlffT "INPUT TROPPO LUNGO":G*;G*: FOR KK = 1 TO 750: N 
EXT KK; VTAB <CV 4 1): HTAB 1: CALL - 956: GOTO 3060 
3100 NEXT K 
3110 GOSUB 205 
3120 IF Y* = "N* THEN 3210 
3130 IF Y* < > ■S* THEN 3110 
3140 GOSUB 1005 
3150 REC = REC M: GOTO 3030 
3160 REC = REC - IsRX = 0 
3170 GOSUB 230 
3160 PRINT REC 
3190 PRINT DVCLOSE" 

3200 CLEAR ; GOTO 1500 

3210 GOSUB 295: PRlffT NF 4 1 ;■ .INTERROTTO" 

3220 VTAB 23: HTAB 10: GOSUB 250: PRlffT : 'VTAB 21: PRINT *8 
ATTI LA LINEA £ DA CORREGGERE: ";G*;: INPUT Z*:Z = VA 
L (Z*) 

3230 HOME : VTAB 12: HTAB 10: PRlffT 'PREGO. CORREGGERE" 

3240 IF Z* = "* THEN VTAB 12: HTAB 10: PRINT B*: GOTO 3140 
3250 IF Z = NF 4 } THEN 3030 

3260 IF Z < 1 OR Z > NF THEN 3210 

3270 K = Z 

3280 VTAB 18: GOSUB 215 
3290 IF LEN (P*<K)) < = TV(K) THEN 3310 
330G PRlffT “INPUT TROPPO LUNGO*;G*;G*: FOR KK = 1 T0 750: N 
EXT KK: VTAB (CV 4 1); HTAB 1: CALL - 958: GOTO 3280 
3310 GOTO 3210 

4000 REM **CAMBIA/CANCELLA DATA** 

4010 Al* = "CAMBIA/CANCELLA DATA* 

4020 TEXT ; HOME : GOSUB 260: HOME sFILE* = "CIBI": GOSUB 3 
20:RX = 0: GOSUB 275 
4030 INPUT REC 
4040 PRlffT D*"CLOSE*;FILE* 

4050 HOME : 'VTAB 23: HTAB 10: GOSUB 250: '-/TAB 5: PRINT : PR 
INI "BATTI IL NUMERO DEL RECORD : U :G*;: INPUT RD* 

4060 IF LEN (RD*) = 0 THEN CLEAR : GOTO 1500 

4070 RD = INT ( 'VAL (RD*)>: IF RD < =0 THEN 4050 

4080 IF RD < = REC THEN 4100 

4090 PRlffT : PRlffT "HAI SOLO *;REC;" RECORD NEL FILE*’: PRI 

Continua 
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Se non volete problemi di memoria, 
meglio far lavorare 3M. 
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I problemi di memoria di 
un’azienda trovano la prima rispo¬ 
sta nella 3M già nel 1951, anno in cui 
la 3M sviluppò il primo nastro ma¬ 
gnetico per computer. 

Questo dato la dice lunga sul 
primato di esperienze tecnologiche 
maturate in questo campo dalla 3M, 
sul patrimonio di qualità e affidabili¬ 
tà della produzione 3M nel settore 
dei supporti magnetici. 

Prendiamo le diskettes, ad 
esempio: omologate dai maggiori 


costruttori, certificate al 100%, ga¬ 
rantite 5 anni, esportate in tutto il 
mondo, distribuite in Italia attraverso 
una rete capillare di 400 punti ven¬ 
dita. E soprattutto disponibili in una 
gamma completa sia nella misura 
da 8 pollici che in quella da 5 e 1/4, e 
con un esclusivo rivestimento ma¬ 
gnetico che consente un’eccezio¬ 
nale resistenza all’usura e la massi¬ 
ma affidabilità. 3M ha sempre una 
risposta pronta per i vostri 
mi di ufficio. 


E non solo con i prodotti per l'in¬ 
formatica. Ma anche con i sistemi di 
fotocopiatura, microfilmatura, visual 
e di telecomunicazione. 

Perchè 3M lavora offrendo so¬ 
luzioni “ad alta tecnologia” per il vo¬ 
stro ufficio. E per tutti gli uffici. 

3M. SISTEMI 
PER L’UFFICIO 




























ma di calorie, grammi, milligrammi e 
unità internazionali per 100 grammi 
della parte commestibile dei cibi, e 
quindi possono essere forniti diretta- 
mente al file di dati CIBI senza con¬ 
versione. 

Il dischetto che Applicando mette a 
disposizione dei suoi lettori contiene i 
dati per 400 cibi immessi in base alle 
fonti menzionate sopra. Durante il la¬ 
voro di inserimento delle 400 voci mol¬ 
te delle voci che non variavano in mo¬ 
do rilevante sono state ridotte a una 
voce singola media. Altri cibi, che nor¬ 
malmente non vengono consumati 
(carne di balena, Zwieback, renna e 
via dicendo) non sono stati compresi 
nella lista. 


Il database CIBI 

L’uso personale del programma è 
notevolmente migliorato dal fatto che 
voi stessi potete aggiungere, cambiare 
ed eliminare dati sui cibi a seconda 
delle vostre necessità personali. I mo¬ 
duli INSERIMENTO CIBI e CAM- 
BIA/CANCELLA CIBI programma 
“Sistema Base” (Applicando n. 3, 
1983), sono, a nostro avviso, bene 
adatti a questo scopo. Essi sono inclusi 
nel programma rispettivamente alle li¬ 
nee 3000-3310 e 4000-4430. Sono 
comprese lievi modifiche, intese a gui¬ 
dare l’utente in modo un po’ più chiaro 
e a respingere le immissioni errate. 

I dati per i nomi di campo e le lun¬ 


ghezze dei record dei cibi sono definiti 
nelle linee 2330—2360. Questi dati 
vengono poi memorizzati sul dischetto 
(mediante una subroutine a linea 
1025) con il nome CIBI seguito da 
CTRL B. La lunghezza di record di 
140 caratteri permette la memorizza¬ 
zione di circa 400 voci di cibi su mezzo 
dischetto. 

Dati statistici 
personali 

Il peso ideale dell’utente è definito 
in termini di struttura fisica, statura e 
sesso. Le informazioni utilizzate per 


NT : PRINT “BATTI RETURN PER CONTINUARE.";G*;G*;: INPU 
T Y$s GOTO 4050 

4100 RX = RDi IF RX < = 0 THEN RX = 0 

4110 GOSUB 275; FOR K = 1 TO NF; INPUT P$(K): NEXT K 

4120 PRINT W"CLOSE";FILE$ 

4130 GOSUB 295 

4140 'VTAB 22: CALL - 868: PRINT "CMB1A/CANCELLA RECORD N. 
D ;RD;" (S/N) \'G*p GET Y$s PRINT Y$s IF Y* = "N" THE 
N 4050 

4150 IF Y$ < ) B S" THEN 4140 

4160 VTAB 22: CALL - 868: PRINT "[AMBIA <C), CANCELLA (D), 
0 ESCI (E5 ’:G*;: GET Y$: PRINT Y$ 

4170 IF Y* = "E" THEN 4050 

4180 IF Y$ = “C" THEN 4320 

4190 IF Y$ < > "D" THEN 4160 

4200 VTAB 22: CALL - 368: PRINT "QUESTO CIBO VERRÀ-' CANCEL 
LATO,": PRINT ; PRINT "CONFERMI CS1/N0): H ;; : INPUT 
Yt: IF Y* < > "SI" THEN 4050 
4210 IF RD < ) REC THEN 4250 
4220 RX = 0 : REC = REC - 1: GOSUB 240: PRINT REC 
4230 PRINT Wj-CLOSE'iFILE* 

4240 GOTO 4050 

4250 RX = REC: GOSUB 275: FOR K = i TO NF: INPUT P$(K): NEX 
T K 

4240 PRINT M; , CL0SE'sFlLE$ 

4270 RX = RD: GOSUB 230: FOR K = 1 T0 NF: PRINT P$(K): NEXT 
K 

4280 PRINT DVCLQSE’jFILE* 

4290 REC = REC - 1:RX = 0: GOSUB 230; PRINT REC 
4300 PRINT D*:"CL0SE":FILE$ 

4310 GOTO 4050 

4320 REM «ROUTINE CAMBIA** 

4330 VTAB 23; HTA8 10; GOSUB 250; PRINT : VTAB 22: CALL - 
868: PRINT "BATTI IL CAMPO £ DA CAMBIARE: INPUT 

Y*:Y = 'VAL (Y$): IF Y = 0 THEN 4410 
4340 HOME : VTAB 12: HTAB 10: PRINT "PREGO CORREGGERE" 

4350 IF INI (Y) < 1 OR INT <Y> > NF THEN 4330 
4340 K = Y 

4370 VTAB 17: GOSUB 215 
4380 IF LEN (P$(Y)) < = TV(Y) THEN 4400 
4390 VTAB 23: CALL - 868: HTAB 10: PRINT "INPUT TROPPO LUN 
G0":G*;G*: FOR KK = 1 T0 500: NEXT KK: VTAB 23: HTAB 
10: GOSUB 250: PRINT : GOTO 4370 
4400 GOSUB 295: GOTO 4330 

4410 RX = RD: GOSUB 230: FOR K = 1 T0 NF: PRINT P*(K): NEXT 
K 

4420 PRINT DI'CL0SE";FILE* 

4430 GOTO 4050 

5000 REM ««MENU DI ANALIS1«« 

5010 GOSUB 715 

5020 VI = 5:B$ = * ": REM 30 

SPAZI 

5030 SCI = CHI» (2)iD$ = CHI» (4):B$ = CHf»(7):H* = CH 
RI (8):V1$ = CHR$ (91):V2I = CHR$ (93) 

5040 TEXT : HOME : GOSUB 305 

5050 AA$ = a DIETA PERSONALIZZATA *:A1$ = " ATMLIS1 D 
ELI'ALIMENTAZIONE ": GOSUB 240 

5060 f»(l) = "ANALISI GIORNALIERA" :M$(2) = "AMLIS1 A LUNGO 


TERMINE":M*<3) = "DA ASSEGNARE":M$(4) = "DA ASSEGNARE 
1 :M$(5) = "MENU PRINCIPALE" 

5070 FOR K = 1 T0 VI: VTAB (2 « K « 4): HTAB 8: PRINT K;\ 
":M*(K): NEXT K 

5080 VTAB 19: HTAB 10: PRINT "OLIALE ? ";G*;V1$:" ":V2*;H$:H 
N0RMAL : GET Y$: PRINT Y$:Y = VAL <Y$>: IF Y < I 
OR Y > VI THET^I 5080 

5090 'VTAB 2 « Y + 4: HTAB 8: IWERSE : PRINT Y|". *:M$(Y): 

N0RMAL : FOR KK = 1 T0 400: NEXT KK 
5100 IF Y = VI THET4 CLEAR : GOTO 1500 
5110 SX = PEEK (768):DX = PEEK <769) 

5120 0N Y GOTO 6000,7000,8000.9000,1500 
6000 REM ««ANALISI GIORNALIERA** 

6010 TEXT : HOME : GOSUB 305:M$ = "CALCOLO Gl0Rf4ALIERO* :A1 
% = D CALORIE VITAMINE ": GOSUB 260: VTAB 10: HTAB 5: 
PRINT "E' IL PRIMO PASTO 0 IL SEGUITO": 'VTAB 12: HTAB 
5: PRINT "DELLA NUTRIZIONE DI OGGI " 

4030 VTAB 18: HTAB 6: PRINT "N)U0V0 0 SEGUITO ? ";G*:: GE 
TY$s PRINT Y$ 

6040 IF ((YS < ) "N") AND (Y$ < ) "S")) THEN 4030 
6050 P0KE 34,0: HOME :FILE$ = "CIBI": VTAB 11: HTAB 10: PRI 
NT "STO LEGGENDO I FILE": VTAB 11: HTAB 24 
6070 GOSUB 850 

6080 FOR K = 1 T0 NF:PS(K) = 0:P(K) = 0: NEXT K:NI = 0 
6090 IF Y$ = "S" THEN GOSUB 540: IF YES = 0 THEN HOME : V 
TAB 3: PRINT "DEVI RICOMINCIARE DA CAPO PER OGGI": GOS 
UB 785: CLEAR : GOTO 1500 
6100 GOSUB 930 

6110 IF LEN (A$) = 0 THEN 6160 
6120 IF ER THEN GOTO 4100 
6130 GOSUB 960 

6140 IF NI = 20 THEN GOSUB 975: VTAB 15: PRINT "FINISCI QU 
ESTÀ SESSIONE E COMINCIANE*: 'VTAB 17: PRINT "UN'ALTRA 
SE HAI ALTRI CIBI DA VALUTARE GOSUB 785 
6150 IF NI < 20 THEN 6100 

6160 TEXT : HOME ;AA* = 8 LISTA DEI CIBI ":A1$ = " DI Q 
DESTA SESSIONE ": GOSUB 260: GOSUB 520 
6170 IF YES = 0 THEN TEXT : HOME : VTAB 10: HTAB 11: PRINT 
"SESSIONE INTERROTTA": VTAB 12: HTAB 15: PRINT "RIC0M 
INCIARE": FOR K = 1 T0 3000: NEXT K: CLEAR : GOTO 1500 
6180 QQ* = "DIMENTICATO NIENTE ? ": TEXT : HOME : VTAB 12: 

HTAB 09; GOSUB 505: IF YES THEN 4100 
6190 QQ* = "VUOI IL TOTALE NUTRITIVO ? * : HOME : VTAB 12: H 
TAB 2: GOSUB 505: IF YES THEN GOSUB 530 
6200 QQ* = "MANGERAI MCORA OGGI ? ": VTAB 23: HTAB 5: GOSU 
B 505: IF YES THEN GOSUB 545: HOME : 'VTAB 11: PRINT " 
IL TOTALE DELLE CALORIE SALVATO SU DISCO": FOR K = 1 T 
0 1500: NEXT 

6210 IF YES THEN HOME : VTAB 10: HTAB !: PRINT "DOPO TI DA 
R0-' IL REPORT GIORNALIERO": FOR K = 1 T0 1500: NEXT 
6220 GOSUB 835 
6230 IF YES THEN 6250 

4240 HOME : VTAB 12: PRINT ‘INSERISCI LA DATA E IL PESO DI 
OGGI.": FOR K = 1 T0 1500: NEXT : GOSUB 725:YES = 0 
4250 REM «IPESO IDEALE E BISOGNO Dì CALORIE** 

6260 GOSUB 680:WI = INT (UT + ,55:CI = ( INT (CO): HOME 
6270 IF YES THEN 4430 

4280 REM ««PESO ATTUALE E BISOGNO DI CALORIE** „ . 

Continua 


28 







stabilire le relazioni che stimano il pe¬ 
so ideale provengono dalla Metropoli¬ 
tan Life Insurance Company e sono 
quelle pubblicate nella Sezione IX del 
Nutrition Almanac. 

I dati statistici personali dell’utente 
vengono chiesti a cominciare dalla li¬ 
nea 2000. Dopo aver stabilito questi 
parametri, definendo la scelta delle 
unità di misura fatta dall’utente, e re¬ 
spingendo gli utenti che sono troppo 
piccoli o troppo alti (linea 605) si ha la 
stima del peso ideale dell’utente da 
parte della subroutine a linea 590. 

Dopo la visualizzazione dell’arco di 
peso ideale dell’utente (linea 2140) 
viene chiesto all’utente di fornire una 
stima del livello di attività. (Queste 
informazioni provengono dalla Sezio¬ 
ne IX del Nutrition Almanac. In quella 
sede viene data un’ulteriore spiegazio¬ 
ne dei cinque livelli di attività, come 
pure delle esigenze caloriche per unità 
di peso corporeo ai vari livelli di attivi¬ 
tà). La subroutine a linea 680 stima il 
consumo di calorie occorrente solo per 
mantenere il peso ideale. 

All’utente viene poi chiesto il suo 
nome, e i dati appena raccolti sono 
memorizzati in un file di testo denomi¬ 
nato DATI PERSONALI DI, seguito 
dal nome che è stato inserito. Queste 
informazioni sono utilizzate in molte 
altre parti del programma per stabilire 
le caratteristiche personali dell’uten¬ 
te. 

La linea 2250 chiede se si voglia un 
nuovo record del peso. Premendo S si 
istituisce un file di testo, identificato 
da RECORD DEL PESO DI, segui¬ 
to, anche questa volta, dal nome del¬ 
l’utente. Esso viene utilizzato per me¬ 
morizzare il peso giornaliero dell’u¬ 
tente, il consumo di calorie e la data. 
Premendo N si lascia immutato il re¬ 
cord. Queste opzioni consentono di 
cominciare da capo se l’appetito pre¬ 
vale sulla volontà. 


L’analisi 

dell’alimentazione 

L’opzione ANALISI DELLA NU- 
TRIZIONE (figura 1) porta a un sot¬ 
tomenù (figura 3) che comprende il 
modulo chiave del programma ANA- 
LISI GIORNALIERA (linee 
6000-6500). 

La progettazione di questa parte del 
programma ha richiesto un’attenta 
considerazione della capacità del com¬ 
puter, dell’intelligenza umana e dei 
nostri limiti nella programmazione per 
giungere a un mezzo di facile uso in 


XXXt**t**XX*XtXtXX*XX*X*XXXtX**X*XXXXXX 

* M HI lilil H f * LQ^P'H IW * 


t 1 DISPLAY/STAMPA CIBI * 

* * 

*: 2 RICERCA CIBI * 

* 

*: 3 SORT/STAMPA LISTA CIBI * 

*: T 

*: 4 UALUTAZIONE NUTRIZIONALE * 

* t 

* 5 MENU PRINCIPALE * 

* * 

* X 

I: X 

* QUALE ? CU * 

* * 

ì * 

! * 

* * 

* * x * * tx xxx * * xxx * * txxxxxxxxxxxxxxxxxxxx * 


Figura 11 - Scelte di visualizzazione dei dati. 
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Figura 12 - Rapporto elementi nutritivi. 


ILJILIA PERSONALIZZATA] 
■ INSERIMENTO DATA 
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concersione 

CALORIE 100 
PROTEINE GR 
GRASSI GR - | 
CARBOIDRATI 
CALL IO MG - 
FERRO MG - I 


10 

SODIO MG - 

1 1 

CITAMI HA A 

12 

CITAMI HA B1 

13 

CITAMI HA B2 

14 

NI AC INA MG 

15 

CITAMIN A C 

1 6 

COLESTEROLO 

batti la linea 


BATTI | 


MG - a 
MG - I 
MG - 

- 0 

MG - 0 
MG - I 
1 DA COI 


GGERE 


Figura 13 - Immissione esemplificativa dei dati di un cibo. 
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grado di ottenere l’accesso interattivo 
ai dati dei cibi. Malgrado il BASIC sia 
lento nella ricerca delle voci in una 
lista, abbiamo deciso ugualmente di 
non ricorrere al linguaggio macchina 
per la ricerca dei dati e di delegare il 
compito alle capacità umane di ap¬ 
prendimento ed esplorazione. Il com¬ 
puter vi assiste però in questo compito 
provvedendo a fornirvi, di tanto in 
tanto, un elenco alfabetico stampato 
dei cibi con i corrispondenti numeri di 
record. Alla ricezione del numero di 
record i dati vengono rapidamente re¬ 
cuperati dal computer, viene chiesta 
l’entità della porzione e vengono ag¬ 
giunti al totale gli elementi nutritivi. 


Alla scelta di questa opzione 
(ANALISI GIORNALIERA) l’uten¬ 
te è invitato a dire se inizia un "nuovo" 
record giornaliero o continua un re¬ 
cord iniziato in precedenza. Se si sce¬ 
glie N, a indicare la prima introduzio¬ 
ne per una giornata, il programma az¬ 
zera le variabili che sommano gli ele¬ 
menti nutritivi (linea 6080) e va avanti 
a linea 6100. 

L’indicazione che il record continua 
ha come risultato il trasferimento (li¬ 
nea 6090) a una subroutine (linee 
560—585) che legge i totali degli ele¬ 
menti nutritivi memorizzati sul di¬ 
schetto in un file chiamato ALIMEN¬ 
TAZIONE PARZIALE DI seguito 


come sempre dal nome dell’utente. 
Vengono visualizzati sullo schermo i 
totali per la prima parte della giornata. 
È inoltre visualizzata sullo schermo, 
come promemoria, l’ultima voce di ci¬ 
bo introdotta nella precedente seduta 
e, una volta che l’utente richiama l’ul¬ 
tima voce, il controllo del programma 
va avanti a linea 6100. 

È richiamata dalla linea 6100 una 
subroutine (linea 930) che chiede un 
numero di record di cibo. Dopo aver 
controllato la validità del numero, la 
subroutine legge dal dischetto (linea 
860) i dati relativi al cibo specificato, 
chiede l’entità della porzione (linee 
875-895), controlla se ci siano errori, 


6290 UA = INI ( VAL (UA!)): 

6300 CA = (UA / 2.2) * CK: IF U$ = “C" THEN CA = UA « CK 
6310 UNI = "LIBBRE 9 : IF U$ = *C“ THEN UNI = H CHILOGRAMMI H 
6320 CU = (CA - PS(4)) * 7 / 3500;.IF Ul = - C - THEN CU = CU 
/ 2.2 

6330 CHI = •PERDI 9 : IF CU < 0 THEN CHI = "GUADAGNI - 
6340 CU = AB3 (CU):CU = ( INI (CU * 10) / 10) 

6350 VTAB 2: PRINT "HAI CONSUMATO *: INI (PS(4)):* CALORIE" 
: VTAB 5: PRINT "CON UNA NUTRIZIONE COME QUELLA DI OGG 
I B : PRINT : PRINT "IN UNA SETTIMANA ";CH!;* CIRCA 9 : PR 
INT ; PRINT HK ;CU: R 

6360 VTAB 11: PRINT "HAI BISOGNO DI CIRCA ":CI;* CALORIE PE 
R": VTAB 13; PRINT 'MANTENERE IL TUO PESO IDEALE DI "; 
UI: VTAB 15: PRINT UN!;*." 

6370 VTAB 17: PRINT "MANGIANDO B ; INT (CA);" PER GIORNO MAN 
TERRAI": VTAB 19: PRINT "IL TUO ATTUALE PESO DI ";UA; 9 
" *UNI 

6380 GOèUB 785 

6390 PR = INT (100 * 4 * PS<5) / PS(4)):FA = INT (100 » 9 
* PS(ó) / PS(4)):CB = (100 - PR - FA): HOME 
6400 VTAB 2: PRINT "LE CALORIE CHE HAI CONSUMATO OGGI ": VT 
AB 4; PRINT "SONO COMPOSTE DA:": VTAB 6: PRINT TAB( 1 
2) :'CARBOIDRATI" : TAB( 25)jCB; - 2 - : VTAB 8: PRINT TAB( 
12) {"GRASSI TAB( 25) ; FA :*!<(* 

6410 VTAB 10: PRINT TAB< 12)j“PROTEINE*: TAB( 25):PR:'X": 
VTAB 12: PRINT "PER UT4A CORRETTA ALIMENTAZIONE SI ": V 
TAB 14: PRINT "SUGGERISCONO LE SEGUENTI PERCENTUALI:": 
.VTAB 16: PRINT TAB( 12);"CARBOIDRATI*; TAB( 25);"50Z 

6420 VTAB 18: PRINT TAB( 12):“GRASSI"; TAB( 25)j*30Z n : VTA 
B 20; PRINT TAB( 12) ;*PROTEINE" ; TAB( 25);*20Z - : G0SU 
B 785 

6430 F0R K = 4 T0 NF: READ PSI(K): NEXT 
6440 DATA "CALORIE", " PROTEINE - ," GRASSI"/CARBOIDRATI*, 9 
CALCIO", "FERRO".SODIO", "VITAMINA A', “VITAMINA B", 
“VITAMINA B1“."NIACINA"."VITAMINA C"/COLESTEROLO" 

6450 DIM NU(NF): GOSUB 905: Ò0SUB 735 

6460 IF YES THEN HOME : VTAB 10; HTAB 9: PRINT "ARRIVEDERC 

i A PIU" TARDI"; END 

6470 RX = 0:RL = 20:FILEI = "RECORD DEL PESO DI ' + NAMEI: 
GOSUB 275; INPUT DY; PRINT DI*CL0SE M ;FILEI :RX = DY + 1 
: GOSUB 230: PRINT INT (PS(4)): PRINT DAI: PRINT -UÀ; 
PRINT DVCLQSE" iFILEI 

6480 RX = 0: GOSUB 230: PRINT DY 4 1; PRINT DI"CL0SE";FILEI 

6490 TEXT : HOME : VTAB 10: PRINT "HO SALVATO IL TUO PESO. 

LA DATA E": VTAB 12: PRINT "IL TOTALE DELLE CALORIE CO 
NSUMATE OGGI":*VTAB 14; PRINT "PER FUTURE REFERENZE" 
6500 VTAB 18: PRINT Gl:Gl;Gl: PRINT * BUONANOTTE " 4 NAMEI;" 

, ARRIVEDERCI A DOMANI"; END 
7000 REM *«ANALISI A LUNGO TERMINE** 

7010 TEXT : HOME : VTAB 12: HTAB 2: PRINT "UN ATTIMO DI PAZ 
IENZA. STO LAVORANDO. - 

7920 RX = U;RL = 20:fILEI = "RECORD DEL PESO DI 8 4 NAMEI;M 
VI = "DEVI COMPLETARE L'OPZIONE 1 DEL MENU E SALVARE 
ALMENO UN PASTO PARZIALE": GOSUB 271; GOSUB 275: INPUT 
DY: PRINT DI"CL0SE ,! jFILEI: DIM UZ(DY) 

7030 IF DY = 0 THEN HOME ; VTAB 10: PRINT "NON HAI STABILI 
T0 UN PESO RECORD DI ": VTAB 12: HTAB 17: PRINT MMEI: 


F0R K = 1 T0 2500: NEXT K: GOTO 5020 
7040 PRINT DI'OPEN*;FILEI",L";RL;",S*;SX;“,D*;DX:C‘ = 0:U = 

7050 F0R K = 1 T0 DY:RX = K: GOSUB 285: INPUT PS<4),DAI,UZ( 
K):C = C 4 PS(4):U = U + UZ(K): NEXT K: PRIf4T DI*CL0SE 
"jFILEI 

7060 C = C / DY:UX = UZ(1) - UZ(DY):U = U / DY 

7070 GOSUB 835: REM ««CARICA DATI PERSONALI** 

7080 GOSUB 680: REM ««PESO IDEALE E CALORIE»* 

7090 Uì = INT (UT t .5):CI = INT (CC 4 .5) 

7100 UNI = "LIBBRE": IF LH = B C" THEN UNI = "CHILI" 

7110 CHI = "PERSO": IF UL < 0 THEN CHI = "PRESO" 

7120 REM 
7130 GOSUB 78 c ' 

7140 TEXT :'HOME : PRINT "NEL PERIODO DI ":DY:" GIORNI, FIN 
ITO IL": 'VTAB 3: PRINT "IL ":DAI; D HAI CONSUETO M 
E0IA DI ": VTAB 5: PRINT INT (C); - CALORIE AL GIORNO. 

7150 VTAB 8: PRINT "IL TUO CORPO HA BISOGNO DI ASSIMILARE": 
VTAB 10: PRINT CI;" CALORIE AL GIORNO PER MANTENERE": 
JVTAB 12: PRINT "IL TUO PESO IDEALE DI - ;WI;' - ; IMI ; - . 

7160 VTAB 15: PRINT "LA MEDIA DEL PESO MANTENUTO NEL PERIOD 
0": (TAB 17; PRINT T' STATA DI ";U;" " :iM; n IN Q 
UESTI ‘TAB 19: FRI NT DY; - GIORNI HAI ";CHI;" ABS 
(UX) "; UNI : *.“ 

7170 GOSUB 785: CLÉAR : GOTO 1500 
8000 REM ««DA ASSEGNARE»» 

8010 TEXT : HOME : VTAB 10: PRINT "DA ASSEGNARE DALLA LINEA 
8010": GOSUB 785: GOTO 5040 
9000 REM ««DA ASSEGNARE»» 

9010 TEXT : HOME : VTAB 10: PRINT "DA ASSEGNARE DALLA LINEA 
9010": GOSUB 785: GOTO 5040 
10000 REM ««DISPLAY DATA SUB MENU»» 

10010 VI = 5:81 = * * : REM 3 

0 SPAZI 

10020 BC! = CHRI (2):DI = CHR!(4):G!= CHR! (7):H! = C 
HRI (8):V1I = CHRI (91):V2$ = CHRI (93) 

10030 TEXT : HOME ; GOSUB 305 

10040 AAI = * STAMPA/RICERCA CIBI ":A1I = " MENU 

": GOSUB 260 

10050 MIO) = "DISPLAY/STAMPA CIBi 8 :M!(2) = "RICERCA CIBI " 
:MI(3) = "SORT/STAMPA LISTA CIBI":MI(4) = "VALUTAZI0N 
E NUTRIZIONALE" :MI(5) = "MENU PRINCIPALE" 

10060 POR K = 1 T0 VI: VTAB (2 * K 4 4): HTAB 8: PRINT K;*. 
";MI(K): NEXT K 

10070 'VTAB 18; HTAB 20: PRINT "QUALE ? ";GI;' 

HI:: N0RMAL : GET Yl; PRINT YI:Y ' 

i or y > vi then 10070 

10080 VTAB 2 « Y 4 4; HTAB 8: INVERSE : PRINT Y;\ - ;MI(Y): 

N0RMAL : F0R KK = 1 T0 400: NEXT KK 
10090 IF Y = VI THEN CLEAR : GOTO 1500 
10100 SX = PEEK (768):DX = PEEK (769) 

10110 QN Y GOTO 10500.11000,12000,12500,1500 
10500 REM ««DÌSPLAY/STAMPA DATI»» 

10510 All = E DISPLAY/STAMPA CIBI " 

10520 TEXT : HOME ; GOSUB 260: HOME iFILEI 
320 :RX = 0: GOSUB 275 
10530 INPUT REC 




"CIBI": GOSUB 
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estrae la scelta di unità fatta dall’uten¬ 
te (linee 450—500) e restituisce il con¬ 
trollo al programma principale a linea 
6110. 

Gli errori nell’introduzione dei dati 
portano alla ripetizione della richiesta 
di un numero di record di cibo (linea 
6120), e battendo RETURN si mette 
fine alla seduta di introduzione delle 
voci di cibo. 

La linea 6130 richiama una subrou¬ 
tine (linea 960) che aggiunge al totale 
gli elementi nutritivi. La linea 6140 
avverte l’utente nel caso che le voci di 
cibo superino quanto può essere visua¬ 
lizzato sullo schermo. Dopo la visua¬ 
lizzazione della lista dei cibi (linea 
6160) e della lista opzionale degli ele¬ 


menti nutritivi (linea 6190) viene chie¬ 
sto all’utente se mungerà altro nel cor¬ 
so della giornata (linea 6200). Pre¬ 
mendo S si fa sapere al computer che 
deve memorizzare sul dischetto il tota¬ 
le degli elementi nutritivi, per il recu¬ 
pero in un momento successivo. A ciò 
provvede la subroutine a linea 545 che 
istituisce il file di testo ALIMENTA¬ 
ZIONE PARZIALE DI, seguito dal 
nome dell’utente attuale. 

Il controllo passa poi tramite la linea 
6270 alla subroutine a linea 835, che 
legge dal dischetto i dati personali del¬ 
l’utente. Quindi salta, dato che la va¬ 
riabile YES è stata impostata su vero 
(linee 6200-6250) alla routine del pe¬ 
so ideale (linea 6250) e infine stampa 


un rapporto provvisorio (linee 
6340“6460) per mettere fine alla se¬ 
duta di immissione dei cibi e fermare il 
programma. 

Un messaggio avvisa l’utente del 
consumo totale di calorie ed elementi 
nutritivi fino a quel punto della giorna¬ 
ta, sotto forma di percentuale dell’in¬ 
gestione di elementi nutritivi richiesta 
solo per mantenere il peso al livello di 
attività specificato nei dati personali. 

Rispondendo N alla domanda 
"Mangerai ancora oggi?" (linea 6200) 
si fa scattare un più complesso rappor¬ 
to di alimentazione di fine giornata. 
Per prima cosa la linea 6240 richiama 
una subroutine a linea 725 che chiede 
la data e il peso attuale dell’utente. Le 


10540 

10550 


10560 

10570 

10580 

10590 

10600 


10610 

10620 

10630 

10640 

10650 


10660' 

10670 

10680 

10690 

10700 

10710 

10720 

10730 

10740 

10750 


10760 

10770 

10780 

10790 

10800 

10810 

10820 

10830 

11000 

11010 

11020 

11030 

11040 

11050 

11060 

11070 

11080 


PRINT D*"CL0SE u :FILE* 

HOME ! VTAB 6i PRINT "VUOI 


L'USCITA SU STAMPANTE (S/N 


) "iG*!! GET Y*: PRINT Y*: IF Y* « "N" THEN SLOT = Oi 
GOTO 10640 

IF Y* < ) "S" THEN 10550 

V/TAB 10! CALL - 868! PRINT "SLOT DELLA STAMPANTE ! 1 
:G*;: GET SL*ì PRINT SL*:SL0T « VAL (SL*) 

IF Y* * CHR* (27) OR Yf’■ CHR* (32) THEN CLEAR ! G 
0T0 1500 

IF SLOT ( 1 OR SLOT ) 7 THEN PRINT G*jG*: GOTO 10570 
PRINT ; PRINT 'ACCENDI LA STAMPANTE."! PRINT "BATTI " 
! s INVERSE ! PRINT "RETURN" ; s N0RMAL ! PRINT " QIWDQ 
SEI PRONTO H jG*!! INPUT Y* 

PRINT D*"PR£" SLOT 
PRINT 

PRINT D*"PR£Q" 

HOME ! VTAB 22: HTAB 10i G0SUB 250! VTAB ?! PRINT 
PRINT "V1DE0(V) 0 STAMPA(P) DEI CIBI ":G*!i GET VP*ì 
PRINT VP*i IF VP* = CHR* (13) THEN CLEAR ! GOTO 150 
0 

PRINT ! CALL - 958! PRINT "RECORD DA DOVE VUOI INIZI 
ARE ";G*j! INPUT START*:RX = VAL (START*) 

IF RX > REC THEN PRINT "HAI SOLO "jRECj" RECORD NEL 
FILE!":G*|G*! GOTO 10660 
IF RX <1 THEN RX = 1 
GOSUB 275 

F0R K - 1 T0 NF! INPUT P*(K): NEXT K 

IF VP* = "S" THEN PRINT D*"PR£";SL0Ts PRINT ! PRINT 

"RECORD £ ";RX 

GOSUB 295 

PRINT D*"PR£0" 

PRINT D*"CLQSE"{FILE* 

VTAB 22s INVERSE ! PRINT NORMAL ! PRINT " = P 

RQSSIMQ "j! INVERSE ! PRINT j Hii NORMAL ! PRINT 
" = ULTIMO "j TA8( 30){"RECORD N.* 

VTAB 23! PRINT "BATTI "j! INVERSE ! PRINT "ESC"}: N0R 
MAL ! PRINT ■ PER UN N. RECORD "j TAB< 30)jRXj" DI "; 
REC 

GOSUB 250! PRINT G*:: CALL - 868! GET Y*! PRINT Y*! 
IF Y* = CHR* (3) THEN END 
IF Y* * CHR* (2?) THEN VTAB 24: CALL - 868! PRINT 
"NUMERO DI RECORD ? "jG*{! INPUT RXì GOTO 10670 
IF Y* * CHR* (8) THEN RX * RX - 2! GOTO 10830 
IF Y* « CHR* (13) THEN 10640 
IF Y* = CHR* (21) OR Y* * CHR* (32) THEN 10830 
GOTO 10750 

RX » RX 4 l! GOTO 10670 
REM «RICERCA CIBI» 

Al* a * RICERCA CIBI " 

TEXT s HOME : GOSUB 260! HOME :FILE* * "CIBI": GOSUB 
320sRX s 0! GOSUB 275 
INPUT REC 

PRINT DVCLOSE'jFILE* 

DIM SRT*(REC + 1) .SO*/,*REO 

PRINT D**QPEN"FILÉ*",L";RL|",$"jSXj",D"iDX 

FQR K a ! T0 RECjRX a K GÓSUB 285: INPL't 3RT*(K)iSQX 

(K) * K: NEXT K 

PRINT D*"CL0SE"FILE* 


11090 

11093 

11095 


11100 

imo 

11115 

11120 


11125 

11130 

11140 

11150 

11160 


11170 

11180 

11190 

11200 

11210 

11220 
11230 
lì 240 
11250 

11260 

11270 

12000 

12010 

12020 

12500 

12510 

12520 


12530 

12540 

12550 


12560 


TEXT ! HOME ! GOSUB 305ì VTAB 4 j HTAB 14! PRINT "RICE 
RCA CIBI"! 'VTAB 6! HTAB 3i PRINT "PUOI LISTARE TUTTI 
I CIBI REGOLANDO"! VTAB 8: HTAB 3! PRINT "LA VELOCITA 
•' CON LA PADDLE 1 " 

VTAB 10! HTAB 3: PRINT "OPPURE BLOCCANDO L'IMMAGINE C 
0N"! VTAB 12! HTAB 3: PRINT "CTRL-S/ 

VTAB 14! HTAB 3! PRINT "PER UNA RICERCA CON PAROLE CH 
IAVE"! VTAB 16: HTAB 3s PRINT "CI VORRÀ' QUALCHE MINU 
T0,"! VTAB 20! HTAB 8: PRINT "DISTA 0 RICERCA "s VT 
AB 20! HTAB 26: INPUT Y*: IF Y* * "R" THEN 11150 
IF Y* ( ) "L" AND Y* ( ) "R" THEN 11095 
.TEXT ! HOME ’ 

K - 1NT (REC / 2)! REM *** NUMERO DI LINEA 

F0R J = 1 T0 K: SPEED= PDL (1)! PRINT LEFT* <SRT*(2 


LEFT* (SRT*(2 * J),19): 


PRIN 


LEFT* (SRT*(2 * K + 1), 


J - 1).19)j TAB( 21); 

T ! NEXT J 

IF (K ( REC / 2) THEN PRINT 
19) 

SPEED= 255 

PRINT s GOSUB 785: GOTO 11090 
REM CONTINUE 

TEXT ! HOME ! VTAB 11! HTAB 8: INPUT "CHIAVE DI RICER 
CA ? " :Z*sL = LEN (Z*): IF L ) 20 THEN VTAB 13: HTA 
B 08: PRINT "INPUT TROPPO LUNGO !": F0R J = 1 T0 1000 
! NEXT J: GOTO 11160 

'VTAB 2: HTAB 14: FLASH : PRINT "STO CERCANDO" : P0KE 3 
4.3: NORMAL ! HOME 
FQR J * 1 T0 REC 
LS a LEN (SRT*(J)) 

IF LS ( L THEN 11240 

F0R I = 1 T0 (LS - L + 1) :Y* = MID* <SRT*(J) ,1 ,L) ! I 

F Y* ( >2* THEN 11230 

PRINT TAB( 6){S0*/.(J); TAB( 10){SRT*(J) 

NEXT I 
NEXT J 

VTAB 23! HTAB 6: PRINT "UN'ALTRA RICERCA ? (S/N) ": G 
ET Y*: IF Y* = "S" THEN 11160 
IF Y* * "N" THEN CLEAR ! GOTO 1500 
GOTO 11250 

TEXT : REM «STAMPA LISTA CIBI UTILIZZATORE*# 

HOME ! INVERSE ! VTAB 10! HTAB ?! PRINT "STO CARICANO 
0 IL FILE SORT"! NORMAL 
PRINT D*:"RUN S0RT.S"SX" L D"DX 

rem « Percentuali bisogno giqrnalierq« 

P0KE 34,0! GOSUB 715: GOSUB 835:FILE* = "CIBI": GOSUB 
850 

TEXT ! HOME : VTAB 8: PRINT "UNA VOLTA SCELTO IL NUME 
R0 DI RECORD"! VTAB 10: PRINT "DEI CIBI UTILIZZATI VE 
RRANNO " ! 'VTAB 12: PRINT "ELENCATE LE PERCENTUALI DEI 
TUOI": VTAB 14: PRINT "BISOGNI GIORNALIERI RAPP0RTAT 

VTAB 16: PRINT "PASTO SCELTO,"! GOSUB 680:CI * CC: DI 
M NU(NF) 

POR K = 4 T0 NF: READ PS*(K): NEXT i GOSUB 785 
DATA "CALORIE", "PROTEINE*GRASSI","GARBOIDRATI*,* 
CALCIO", "FERRO* "SODIO", "VITAMINA A\ "VITAMINA B* s 
"VITAMINA 81 VICINA","VITAMINA C^COLESTEROLO" 
HOME : VTAB 20: PRINT G*;G*i VTAB 20: HTAB 9: INPUT • 
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esigenze di calorie dell’utente per 
mantenere il peso ideale e il suo peso 
effettivo sono calcolati rispettivamen¬ 
te alle linee 6260 e 6300. 

Il guadagno o la perdita di peso pre¬ 
visti dell’utente sono calcolati a linea 
6320 sulla base dell’approssimazione 
che un eccesso o un difetto di 3.500 
calorie avrà come conseguenza un 
cambiamento di peso di circa mezzo 
chilo. Poi queste informazioni vengo¬ 
no visualizzate (linee 6350“6380). 

Le linee 6390-6420 visualizzano la 
percentuale di calorie consumate nella 
giornata derivate da proteine, carboi¬ 
drati e grassi. Viene fatto un raffronto 
con le raccomandazioni dell’Ameri- 
can Medicai Association (5). L’algo¬ 


ritmo a linea 6390, che fornisce le ci¬ 
fre, è basato sull’approssimazione che 
un grammo di proteina o carboidrato 
dia quattro calorie, mentre un gram¬ 
mo di grasso darà nove calorie. 

Il lettore dall’occhio acuto (o muni¬ 
to di matita) rileverà forse dai display 
(per esempio quelli delle figure 14,12 
e 7) che ci sono lievi discrepanze. Ciò è 
dovuto al fatto che il numero di calorie 
per 100 grammi di cibo memorizzato 
sul dischetto si'basa sulla relazione fra 
calorie e peso degli elementi nutritivi 
già vista. I dati inseriti però mostrano 
una variazione discretamente ampia 
del numero di calorie derivato in vari 
cibi da un grammo di proteina o di 
carboidrato: non si tratta di errori ma 


del risultato di una lunga serie di speri¬ 
mentazioni pratiche che sono state ef¬ 
fettuate negli USA. 

Ne segue che un punteggio perfetto 
(cioè il 100% delle esigenze quotidia¬ 
ne di calorie, proteine, carboidrati e 
grassi) sarà quasi impossibile da otte¬ 
nere e che non vale la pena di perse¬ 
guirlo. Infine, per mettere termine al¬ 
la trattazione dell’ANALISI GIOR¬ 
NALIERA, il totale delle calorie con¬ 
sumate nella giornata, la data e il peso 
effettivo dell’utente sono memorizzati 
sul dischetto nel file RECORD DEL 
PESO DI, seguito dal nome dell’uten¬ 
te (linea 6470) e il computer chiude 
per la giornata. 

L’opzione ANALISI A LUNGO 


12570 


12580 

12590 

12600 

12610 

12620 

12630 


12640 

13000 

13010 


13020 


13030 


13040 


13050 

13060 
1 3070 
13080 


13085 

13090 

13100 

13110 


13120 


13130 

13140 


13145 

13150 


13160 


NUMERO DI RECORD ? "jAI: VTAB 20i HTAB 34 
RX * VAL <AI)i IF <(RX < 1) OR (RX ) REO) THEN H0M 
E ! VTAB 16s IWERSE : HTAB 5s PR1NT "MI SOLO "sRECi 
' RECORD NEL FILE CIBI 1 ! NQRMAL i F0R K a 1 T0 2000: 
NEXT Ki GOTO 12560 

G0SUB 865! F0R K » 4 T0 NF'.P(K) = VAL (M(K))iPS<K) 

= P(K) * C0j NEXT K 
G0SUB 905 

IF ER a 1 THEN Al a Al 4 1 * * 4 PIO) 

VTAB 20! HTAB 10! PRINT P*(l)s VTAB 21 ! HTAB 10} PRIN 
T Al 

GOSUB 785 

TEXT ! HOME ! VTAB 10! HTAB 4iQW = “VUOI VALUTARE LN 
ALTR0CIB0 ? 1 ! GOSUB 505! IF YES THEN HOME ! GOTO 1 
2560 

HOME ! CLEAR ! GOTO 1500 
REM #*VALUTAZI0NE RICETTE** 

TEXT i HOME ! VTAB 5! PRINT "QUESTA OPZIONE PERMETTE 
DI STABILIRE"! VTAB 7s PRINT "IL VALORE NUTRITIVO CON 
TENUTO IN IMA 1 ! VTAB 9; PRINT "QUALSIASI RICETTA. I D 
ATI VERRANNO POI" 

VTAB 11! PRINT "SALVATI SU DISCO COME UN NORMALE CIBO 
" ! VTAB 13: PRINT "DA POTER USARE IN FUTURE ANALISI 1 ! 
VTAB 15? PRINT "NUTRIZIONALI 
VTAB 18! PRINT "GLI INGREDIENTI DA USARE NELLA R1CETT 
A"! VTAB 20! PRINT "DEVONO ESSERE DISPONIBILI NEL FIL 
E CIBI "• GOSUB 785 

Tiémmni m « jum 

REVI STI NELLA"! VTAB 12! PRINT "RICETTA,"! GOSUB 785 
DIM PS(NF).P(NF),PSI(20),CSI(2Q)! F0R K =* 1 T0 NFiPS< 
K) a 0:P<K; = 0! NEXT KiNI a 0;WA a 0 
GOSUB 930 

IF LEN (Al) a 0 THEN 13140 
IF ER THEN PRINT ! CALL - 958s PRINT Gli"S0L0 INPUT 
NUMERICI"! PRINT "PREGO, BATTERE IL NUMERO DEL CIBO 
'! GOSUB 785iNI a NI - li GOTO 13060 
IF CO » 0 THEN NI » NI - li GOTO 13060 
WA a WA 4 CO * 100 
GOSUB 960 

IF NI » 20 THEN GOSUB 975! VTAB 10! PRINT "PUOI SALV 
ARE I CIBI INSERITI COME"! VTAB 12: PRINT "UNA PARTE 
DELLA RICETTA PER POI"! VTAB 14: PRINT "COMINCIARE UN 
'ALTRA SESSIONE PER"! VTAB 16! PRINT "COMPLETARLA." 

IF NI * 20 THEN VTAB 19i PRINT "DOVRAI POI RICHIAMR 
E ENTRAMBE LE 1 ! VTAB 21 ! PRINT "VOCI QUANDO MANGERAI 
QUESTO PIATTO."! GOSUB 785 
IF NI < 20 THEN 1*3060 

TEXT ! HOME !AAI * * LISTA DEI CIBI "sAll a " IN 
QUESTA RICETTA GOSUB 260! GOSUB 5201 IF YES THEN 
13150 

HOME ! CLEAR i GOTO 1500 

TEXT ! HOME ! VTAB 4! PRINT "HO STABILITO IL PESO TOT 
ALE DELLA"! VTAB 6: PRINT "RICETTA ! "} INT <WA)|" GR 
OR "j INT (WA / 2,83) / 10j" QZ" 

VTAB 9: PRINT «PER UN CALCOLO PRECISO PUOI CAMBIARE"! 
VTAB 11! PRINT "IL PESO TOTALE SE C'E' STATA QUALCHE 
"! VTAB 13; PRINT "VARIAZIONE NELLA COTTURA." 


13170 VTAB 23! PRINT "BATTI "j: FLASH ! PRINT "RETURN"j! NO 
RMAL » PRINT " SE NULLA CAMBIA" 

13190 VTAB 20! INPUT "PESO TOTALE (XXGR 0 XXOZ) ";AI 
13200 IF LEN (Al) a 0 THEN 13270 
13210 IF ( RIGHTI (Al,2) * "GR") OR ( R1GHTI (Al,2) * "02") 
THEN 13230 

13220 VTAB 20! PRINT "DEVE FINIRE IN 'GR' 0 '02'! 

■ : FQR K = 1 T0 1500; NEXT Kì GOTO 13190 
13230 LE a LEN (Al): GOSUB 475 
13240 Al B LEFTI (Al,LE - 2) 

13250 WA = VAL (Al); IF WA - 0 THEN HOME ! VTAB 2: PRINT 
"IL PESO CORRETTO DEV'ESSERE UN NUMERO"! GOTO 13160 
13260 WA * 100 * CO 

13270 HOME ! VTAB 2! PRINT "BATTI IL NOME DELLA RICETTA C0M 
E"jK s 1s PRINT ! PRINT ì GOSUB 215 
13280 IF LEN (PI(D) ) TV(1) THEN PRINT "INPUT TROPPO LUN 
G0 !": 61 : Gl : F0R KK = 1 T0 750; NEXT KK : VTAB (CV + 1 
)! HTAB l! CALL - 958 ! GOTO 13270 
13290 TEXT s HOME ! VTAB 8: PRINT "BATTI LA QUANTITÀ' STAND 
ARD DI UN "! VTAB 10: PRINT "PIATTO DELLA RICETTA,*! 
VTAB 13! HTAB 8i INPUT "QUANTITÀ" ?"jKKs IF KK < =0 
THEN 13290 

13300 Pl(2) a STRI ( INT (WA / KK)) + "GR-" + STRI ( INT 
(WA / (KK * 2,83)) / 10) + "0Z-1/" 4 STRI (KK) 4 «SU 
M"! IF LEN (PI(2)) ) 20 THEN HOME ! VTAB 10! PRINT 
"SECONDO CAMPO TROPPO LUNGO"! FQR K - 1 T0 3000! NEXT 
K! GOTO 13290 

13310 PIO) * STRI ((WA / (KK * 100)))! F0R K - 4 TO NFsPI 
(K) - STRI <(100 / WA) * PS(K>)sPI(K) = LEFTI <PI(K 
),6)! NEXT K 

13320 GOSUB 1005sRX a 0s GOSUB 230! PRINT REC: PRINT DVCLQ 
S£"! HOME ! VTAB 10! PRINT PIO)!* SALVATO COME RECCO 
RD ";RECs FQR K a 1 T0 2000! NEXT Ki CLEAR ! GOTO 150 
0 

14000 REM **DA ASSEGNARE** 

14010 TEXT ! HOME ! VTAB 5ì PRINT 
14000 ALLA"! PRINT ! PRINT 
! GOTO 1550 
14990 REM ERR0R ROUTINE 
15000 EN * PEEK (222) 

15010 EL a PEEK (218) 4 256 * PEEK (219) 

15020 P0KE 2!é,0:MS! = "INSERISCI IL DISCO DATI (SE NECESSA 
RIO)" 

15030 IF EN a 5 THEN PRINT ! PRINT "END OF DATA ALLA LINEA 
"jEL! PRINT "ACCERTATI CHE IL FILE '"FILEI"' U ! PRINT 
"SIA SU QUESTO DISCO" 

15040 IF EN * 6 THEN PRINT ! PRINT "IL FILE '"FILEI"'"! PR 
INT "NON E' SU QUESTO DISCO"; PRINT ! PRINT MVI 
15050 IF EN < 16 AND EN < ) 5 AND EN ( ) 6 THEN PRINT ! 

PRINT' " ERRORE DI DISCO N. "iENi" ALLA LINEA ";EL 
15060 IF EN * ) 16 THEN PRINT ! PRINT • ERRORE APPLESOFT 
NO, "EN" ALLA LINEA "ELsMSI a "* 

15070 PRINT ! PRINT MSI', PRINT ! PRINT "BATTI RETURN*|! GET 
ABl! PRINT ! CLEAR ! GOTO 8 
25000 REM ««FINE PROGRAMMA** 

25010 F0R K * 1 T0 100; NEXT K: TEXT ! HOME ! PRINT "NON DI 
MENTICARE DI FARE UN "i PRINT "BACK UP DEI TUOI DATI, 
"jGljGIjGl! PRINT ! PRINT "BUONA G1QRMTA !" 


"DA ASSEGNARE DALLA LINEA 
"LINEA 14900,'! GOSUB 785 
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TERMINE (figura 3) è intesa a per¬ 
mettere all’utente di fare di tanto in 
tanto un controllo dell’andamento. 
Questo semplice algoritmo comincia 
alla linea 7000. Esso recupera il record 
del peso dell’utente (linee 7020-7050) 


e calcola il suo peso medio e la perdita 
di peso per il numero dei giorni in cui i 
dati sono stati registrati. L’utente vie¬ 
ne informato del suo andamento e il 
controllo viene restituito al menù prin¬ 
cipale. 


Valutazione 
delle ricette 

L’opzione 6 del menù principale (fi¬ 
gura 1) porta direttamente al modulo 
di valutazione delle ricette a linea 
13000. Dopo aver visualizzato le istru¬ 
zioni (linee 13000-13040) questo mo¬ 
dulo richiama le subroutine realizzate 
per il modulo di analisi della nutrizio¬ 
ne e accetta la specificazione da parte 
dell’utente dei cibi e delle quantità (li¬ 
nea 13060) e per sommare gli elementi 
nutritivi (linea 13100). Dopo l’intro¬ 
duzione delle voci di tutti i cibi di una 
ricetta viene visualizzata una lista dei 
cibi e delle quantità, anche qui utiliz¬ 
zando le subroutine messe a punto in 
precedenza. 

All’utente viene fornito il peso tota¬ 
le degli ingredienti (linea 13150) e gli 
viene chiesto di rivederlo per far posto 
ai cambiamenti (linea 13160). Dopo 
che vengono forniti il nome della ricet¬ 
ta e il numero delle portate (linee 
13270-13300) la data viene aggiunta 
al database dei cibi come ultima intro¬ 
duzione e il controllo torna al menù 
principale. 

Gli ulteriori cambiamenti dei dati 
(per esempio come conseguenza di 
una perdita di potere nutritivo dovuto 
alla cottura, o per fornire una descri¬ 
zione più dettagliata di una portata 
tipica) possono essere compiuti utiliz¬ 
zando l’opzione CAMBIA/CAN- 
CELLA. 


La valutazione dei cibi 

Questa sezione è prevista come sus¬ 
sidio per la pianificazione di pasti bi¬ 
lanciati. VALUTAZIONE NUTRI¬ 
ZIONALE (figura 11) invia il control¬ 
lo del programma a questa sezione del 
programma dalle linee 12500-12650. 
Si fa ampio uso di alcune delle subrou- 


SCEGLI QUI LA TUA DIETA 

L’elenco dei cibi pubblicato qui a fianco è contenuto in un file a parte, sullo stesso 
disco che contiene il programma, disponibile a 25.000 lire (vedi Disk Service). Per 
ogni cibo sono forniti i seguenti dati: il nome; la quantità in grammi di una porzione 
standard; il fattore di conversione a 100 gr; le calorie per 100 gr; le proteine in gr; i 
grassi in gr; i carboidrati in gr; il calcio in mg; il ferro in mg; il sodio in mg; la 
vitamina A in mg; la vitamina B1 in mg; la vitamina B2 in mg; la Niacina in mg; la 
vitamina C in mg; il c.olesterolo in mg. 

Chi invece preferisse digitare da sé il programma e inserire i dati deve procurarsi 
un libro o una tabella che specifichi per ogni alimento i dati richiesti dal data base 
dei cibi. La procedura di inserimento, già descritta nell’articolo, è la seguente: 
Dal menù principale si sceglie l'opzione 2, compare: 

QUESTO SARA’ IL RECORD N seguito dal numero con cui verrà archiviato 
quell’alimento. 

Vi viene poi chiesto nell’ordine: 

BATTI CIBO: (dovrete inserire il nome dell’alimento con non più di 20 caratteri) 
QUANTITÀ': (dovete specificare la quantità di una porzione standard) 
CONVERSIONE: (vi è chiesto di inserire il rapporto tra la quantità di una 
porzione standard in rapporto a 100 gr di alimento. Questo numero sarà minore di 1 
se la QUANTITÀ’ è inferire a 100 gr e maggiore di 1 se è superiore) 

È questo il momento di prendere le tabelle ricavate da uno dei libri che vi sarete 
procurati per inserire i dati caratteristici di ogni alimento. Dovete ineserire: 
CALORIE-100 GR: (dato rapportato a 100 gr di alimento come tutte le voci che 
seguono) 


PROTEINE-GR: 
GRASSI-GR: 
CARBOIDRATI-GR: 
CALCIO-MG: 

FERRO-MG: 
SODIO-MG: 
VITAMINA A-MG: 
VITAMINA B 1-MG: 
VITAMINA B 2-MG: 
MACINA-MG: 
VITAMINA C-MG: 
COLESTEROLO-MG: 


fi 




A questo punto dovrete confermare i dati inseriti e, alla richiesta su video, 
passare alla registrazione successiva con la medesima procedura. Per i piatti più 
complessi il calcolo dei dati necessari viene fatto automaticamente a condizione che 
gli alimenti di base siano già stati inseriti nel data base. 

A titolo di esempio vi forniamo qui sotto alcuni dei dati inseriti sul dischetto di 
Applicando : 


CIBO 

BURRO 

CAROTE CRUDE 

FICHI SECCHI 

FILETTO MANZO 

QUANTITÀ’ 

100 

100 

100 

100 

CONVERSIONE 

1 

1 

1 

1 

CALORIE 100 GR 

716 

42 

274 

305 

PROTEINE 

0.6 

1.1 

4.3 

24.1 

GRASSI 

81 

0.2 

1.3 

29.1 

CARBOIDRATI 

0.4 

9.7 

69.1 

0 

CALCIO 

20 

37 

126 

11 

FERRO 

0 

0.7 

3 

■ 3,1 

SODIO 

987 

47 

34 

65 

VITAMINA A 

3300 

11000 

80 

50 

VITAMINA B 1 

/ 

0.06 

0.1 

0.07 

VITAMINA B 2 

j 

0.05 

0.1 

0.19 

NIACINA 

/ 

0.6 

0.7 

4.9 

VITAMINA C 

0 

8 

0 

■ / 

COLESTEROLO 

250 

0 

/ 

80 
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Tabella 1 


Continua a pag. 36 


N. CIBO 

317 ACCIUGHE FRESCHE 
290 AGLIO (TESTA) 

236 ALBICOCCHE FRESCHE 

96 ANACARD1 

35 ANATRA DA CORTILE 

158 ANIMELLE DI BOVINO 
141 ARAGOSTA SOLO POLPA 
328 ARINGA FRESCA 

224 ASIAGO 

396 AVENA FARINA COTTA 

319 BACCALÀ" AMMOLLATO 
19 BAIANE 

61 BARBABIETOLE CRUDE 
9 BESCIAMELLA MEDIA 
372 BIRRA CHIARA 

369 BISCOTTI SECCHI 
384 BRANDY 

273 BROCCOLI DI RAPA 
116 BUDINO MISCELA LATTE 
365 CACAO IN POLVERE 

221 CACIOTTA DI PECORA 
184 CAPPONE 

88 CARAMELLE CIOCCOLATO 
157 CARNE DI CAVALLO 
94 CAROTE COTTE 

248 CASTAGNE FRESCHE 

97 CAVOLFIORE BOLLITO 
276 CAVOLO VERDE (VER2A) 
68 CERVELLA 

240 CILIEGE 

124 CIOCCOLATO AL LATTE 
123 CIPOLLE MATURE 
1 COCOMERO 
201 COPPA 

147 COSTOLETTA AGNELLO 

270 CRAUTI 
266 CRESCIONE 

159 CUORE DI MMZO 

28 DATTERI SNOCCIOLATI 
39 FAGIOLI GIALLI CRUDI 


N. CIBO 

330 ACCIUGHE SOTT'OLIO 
182 AGNELLO CASTRATO 
244 ALBICOCCHE SCIROPP. 
27 CRUDO 

332 ANGUILLA DI FIUME 

388 APSARAGI COTTI 
121 ARANCE FLORIDA 
395 ARINGA IN SCATOLA 
271 ASPARAGI 
397 AVENA FARINA SECCA 

326 BACCALÀ' SECCO SAL. 
283 BARBASIETOLA(RADI CI) 
48 BASTONCINI DI PESCE 

391 BIETOLA COTTA 

373 BIRRA SCURA 

393 BISCOTTO AL CIOCCOL. 
73 BROCCOLI BOLLITI 
23 BRODO DI CARNE 
77 BURRO 
242 CACHI 

371 CAFFÈ' NON ZUCCHER. 
173 CAPRETTO (VAL. MEDI) 
87 CARAMELLE ZUCCHERO 
46 CARNE IN SCATOLA 
95 CAROTE CRUDE 

253 CASTAGNE SECCHE 
98 CAVOLFIORE CRUDO 
295 CECI SECCHI 
18 CETRIOLO CRUDO 

392 CILIEGE IN SACTOLA 

125 CIOCCOLATO FONDENTE 

374 COCA COLA 
172 CONIGLIO 
180 CORATELLA 
196 COTECHINO 

54 CRAUTI IN SCATOLA 

55 CULATELLO DI NMZO 
67 DADO DI BRODO 

318 DENTICE 

38 FAGIOLI GIALLI IN SC 


N. CIBO 

320 ACCIUGHE SOTTOSALE 
156 AGNELLO DI LATTE 
250 ALBICOCCHE SECCHE 
13 ANANAS SCIROPPATO 
331 ANGUILLA DI MARE 

99 ARACHIDI TOSTATE 
103 ARINGA AFFUMICATA 
5 ARROSTO DI TACCHINO 
387 ASPARAGI PUNTE 

15 AVOCADO CRUDO 

16 BACON CANADESE 

60 BARBABIETOLE COTTE 
214 BEL PAESE 
277 BIETOLE 
394 BISCOTTI AI FICHI 

57 BISTECCA CON L'OSSO 
74 BROCCOLI CRUDI 
117 BUDINO ISTANTANEO 
101 BURRO DI ARACHIDI 
226 CACIOCAVALLO 

300 CALAMARI 
90 CARAMELLA GELATINA 
285 CARCIOFI FRESCHI 
43 CARNE HAN20 IN UMIDO 
316 CARPA 

296 CAVIALE 

76 CAVOLINI BRUXELLES 
325 CEFALO 
268 CICORIA RICCIA 
114 CILIEGE MARASCHINO 

281 CIPOLLA FRESCA 
128 COCCO POLPA FRESCA 
354 CONSERVA DI POMODOR 
138 CQRN FLAKES 
69 CRACKER SALATI 

211 CRESCENZA 
160 CUORE DI MAIALE 
252 DATTERI SECCHI 
228 EMMENTHAL 
293 FAGIOLI SECCHI 


N. CIBO 

32 FAGIOLI VERDI COTTI 
341 FARINA DI MIS (60X) 
346 FARINA MAIS 1NTEGR. 
152 FARINA SEGALE BIANCA 
286 FAVE FRESCHE 

164 FEGATO DI MNZO 
20 FEGATO MANZO FRITTO 
45 FETTINA DI MWZO 
47 FICHI SECCHI 
352 FIOCCHI D'AVENA 

104 FORMAGGIO CAMEMBERT 
139 FUNGHI COTTI 

183 GALLINA 

313 GAMBERI DI MARE 

111 GELATO m GRASSO 

218 GORGONZOLA 

351 GRISSINI (VAL.MEDI) 

50 HAMBURGER DI NWZO 
260 INSALATA RICCIA 
216 LATTE CONO. ZUCCH. 

249 LATTE DI COCCO 
222 LATTE IN POLV.SCREM. 
262 LATTUGA 
155 LEPRE 

105 LIMONATA ZUCCHERATA 

181 LINGUA DI MAIALE 
302 LUMACHE (VAL.MEDI) 
171 MAIALE CARNE MAGRA 
357 MAIONESE 
386 MANDORLE TOSTATE 

51 miQ PARTE MAGRA 
126 MARMELLATE/CONSERVE 
6 MELA CRUDA 

37 MELMZtf*} CRUDA 
129 MERLUZZO 

82 MISCELA PME ANGELI 
197 MORTADELLA 
257 NOCCIOLE SECCHE 
187 OCA 

150 OLIO DI ARACHIDE 


N. CIBO 

31 FAGIOLI VERDI IN SC. 
336 FARINA FRUM. INTEGR. 
339 FARIW ORZO PERLATO 
335 FARINA SEGALE SCURA 
292 FAVE SECCHE 

166 FEGATO DI POLLO 
109 FEGATO VITEL. FRITTO 

234 FICHI D'INDIA 

56 FILETTO DI m ZO 
33 FOCACCIA MEDIA 

227 FORMAGGIO GRANA 
132 FUNGHI CRUDI 
29 GAMBERETTI FRITTI 
364 GELATINA DI FRUTTA 
348 GERME ni GRANO 

146 GRANCHIO A VAPORE 
353 GRISSINI ALL'OLIO 
265 INDIVIA 
107 LAMPONI ROSSI 
210 LATTE CQND.NON ZUCC. 

209 LATTE DI PECORA 
63 LATTE INTERO 
294 LENTICCHIE 
355 LIEVITO BIRRA PRESS. 
93 LIMONE FRESCO 

179 LINGUA DI MANZO 
62 MACEDONIA DI FRUTTA 
143 MAIALE COTTO 

235 MANDARINI 

185 W4ZO CARNE GRASSA 

175 miti SEMIGRASSO 
379 MARSALA 
245 MELAGRANE 
363 MELASSA DI C tm> 

366 MIELE 

304 MITILI 

217 MOZZARELLA DI BUFALA 
259 NOCE DI COCCO SECCA 
78 OCA ARROSTO 
358 OLIO DI GIRASOLE 


tine esaminate nelle precedenti sezio¬ 
ni. Si utilizzano i dati personali, in 
unione con i dati sui cibi, per visualiz¬ 
zare la percentuale delle esigenze per 
una giornata che viene soddisfatta da 
una determinata ricetta. 


Esame del nome 
dei cibi 

L’opzione RICERCA CIBI (figura 
11) permette all’utente di esaminare 


sullo schermo i nomi di tutti i cibi e i 
corrispondènti numeri di record. Que¬ 
sta sezione del programma comincia 
alla linea 11000. Tutti i nomi dei cibi 
vengono letti in una matrice stringa 
(linea 11070). Se l’utente risponde con 
S quando gli viene chiesto se vuole la 
lista dei cibi (linea 11090) tutti i nomi 
dei cibi vengono visualizzati su due 
colonne, con la velocità di scorrimento 
controllata da una paddle. 

È prevista anche l’esplorazione del¬ 
la lista da parte del computer. Tutte le 
possibili posizioni delle parole chiave 
in tutti i nomi di cibi vengono control¬ 
late per vedere se ci sia la parola chia¬ 
ve, in un tenace sforzo inteso a trovare 
la voce o le voci desiderate e a listarle. 
Questo viene fatto nelle linee 
11160-11250. 

Lista stampata dei cibi 

SORT/STAMPA LISTA CIBI è in¬ 
cluso come programma separato (li¬ 
stato 2). Esso figura alla fine del listato 



TOTALE CALORIE 
PROTEINE GR 
GRASSI GR 
CARBOIDRATI GR 
CALCIO MG 
FERRO MG 
SODIO MG 
0 ITAMI HA A MG 
VITAMINA B1 MG 
"ITAMI HA B2 MG 
NI AC INA MG 
UITAM INA C MG 
COLESTEROLO MG 


MANGERAI ANCORA OGGI ? <S N >& 


Figura 14 - Display esemplificativo elementi nutritivi di una sessione. 
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Segue da pag. 35 


N. CIBO 

N. 

CIBO 

N. CIBO 

N. 

CIBO 

280 FAGIOLINI FRESCHI 

360 

OLIO DI SOIA 

246 OLIVE MARINATE 

133 

OLIVE VERDI 

343 FARINA FRUMENTO*857.) 

247 

OLIVE VERDI CONSERV. 

309 ORATA 

21 

ORZO PERLATO 

342 FARINA RISO PERLATO 

115 

OSTRICHE COTTE 

301 OSTRICHE FRESCHE 

310 

PALOMBO 

337 FARINA SOIA INTEGR. 

204 

PANCETTA 

71 PANE BIANCO 

70 

PANE FRANCESE 

165 FEAGTO DI MAIALE 

72 

PANE INTEGRALE 

334 PFME SEGALE INTEGR. 

333 

PANE SEGALE SEMIBIAN 

167 FEGATO DI VITELLO 

219 

PANERONE 

398 PANINI DOLCI 

17 

MMM NON MONTATA 

349 FETTE BISCOTTATE 

149 

PARMIGIANO 

350 PASTA ALL'UOVO 

347 

PASTA COMUNE 

243 FICHI FRESCHI 

338 

PASTA GLUTINATA 

289 PATATE 

135 

PATATE AL FORNO 

278 FINOCCHI 

130 

PATATE DOLCI BOLLITE 

134 PATATE LESSE 

136 

PATATINE FRITTE 

223 FONTINA 

199 

PATÉ' DE FOIS GRAS 

186 PECORA (VALORI MEDI) 

225 

PECORINO (VAL.MEDI) 

10 FRAGOLE 

198 

PEOSCIUTTO COTTO 

86 PEPERONI DOLCI 

92 

PERE CRUDE 

291 FUNGHI SECCHI 

100 

PERE SCIROPPATE 

308 PESCE DI SM PIETRO 

322 

PESCE SPADA 

30 GAMBERETTI SCATOLA 

102 

PESCHE CRUDE 

131 PESCHE NOCE 

106 

PESCHE SCIROPPATE 

356 GELATINA SECCA 

176 

PICCIONE 

256 PINOLI SECCHI 

89 

PISELLI 

380 GIN 

91 

PISELLI IN SCATOLA 

254 PISTACCHIO 

137 

PIZZA MARGHERITA 

383 GRAPPA 

298 

POLIPO 

170 POLLASTRO 

174 

POLLO 

230 GROVIERA 

118 

POLLO ARROSTO 

274 POMODORI DA SUGO 

272 

POMODORI FRESCHI 

140 INSALATA CONDITA 

267 

POMODORI PELATI SCT. 

84 POMPEIMO SPICCHI 

145 

POPCORN CONDITO 

14 LARDO 

144 

POPCORN NON CONDITO 

282 PORRI 

202 

PROSCIUTTO CRUDO 

207 LATTE DI CAPRA 

213 

PROVOLONE FRESCO 

231 PROVOLONE STAGIONATO 

238 

PRUGNE FRESCHE 

232 LATTE IN POLV.INTERO 

120 

PRUGNE SECCHE 

299 RANA (COSCE) 

399 

RAPA BOLLITA 

205 LATTE VACCINO SCREM. 

279 

RAPE RADICI 

110 RAVANELLI CRUDI 

303 

RAZZA 

108 LENTICCHIE COTTE 

382 

RHUM 

22 RIBES ROSSO 

220 

RICOTTA 

4 LIEVITO BIRRA SECCO 

177 

RIGAGLIE DI POLLO 

148 RISO BRILLATO 

345 

RISO NON DECORTICATO 

163 LINCIA DI VITELLO 

153 

RISOnO AI FUNGHI 

162 ROGNONE DI NWZO 

161 

ROGNONE DI VITELLO 

311 LUCCIO 

312 

ROMBO 

200 SALAME (VALORI MEDI) 

65 

SALMONE AFFUMICATO 

188 MAIALE CARNE GRASSA 

75 

SALMONE ALLA GRIGLIA 

329 SALMONE FRESCO 

66 

SALMONE ROSA IN SCAT 

142 MAIALE COTTO MAGRO 

194 

SALS FEGATO MAIALE 

192 SALS. MAIALE FRESCHE 

203 

SALS. MAIALE SECCHE 

255 MANDORLE SECCHE 

193 

SANGUINACCIO 

321 SARDINE FRESCHE 

59 

SARDINE OLIO IN SCAT 

52 NWZO COSTATA 

261 

SCAROLA 

8 SCIROPPI IN GENERE 

287 

SCORZONERA 

127 MARGARINA 

264 

SEDANOCOSTE 

390 SEDMO COTTO 

284 

SEDMO DI VERONA 

229 MASCARPONE 


ELVAGGINA PENNUTA 

112 SEMI DI ZUCCA 

344 

SEMOLINO DI FRUMENTO 

36 MELANZANA COTTA 

306 

SEPPIE 

327 SGOMBRO 

26 

SOFT DIRNK TONICI 

233 MELONE 

25 

SOR DRINK DOLCI 

305 SOGLIOLA 

42 

SOTTACETI AGRODOLCE 

64 MIRTILLI CRUDI 

44 

SOTTACETI PICCANTI 

11 SPINACI 

12 

SPINACI BOLLITI 

239 MORE 

378 

SPlimE DOLCE 

377 SPUMANTE SECCO 

315 

STOCCAFISSO AtHOLL. 

212 MOZZARELLA DI MUCCA 

297 

STOCCAFISSO SECCO 

215 STRACCHINO 

361 

STRUTTO 

258 NOCI SECCHE 

385 

SUCCHI DI FRUTTA 

237 SUCCO ANANAS IN SC. 

119 

SUCCO D'ARANCIA 

362 OLIO D'OLIVA 

85 

SUCCO DI LIMONE 

3 SUCCO DI MELE 

7 

SUCCO DI POMODORO 

359 OLIO DI MAIS 

122 

SUCCO DI PRUGNE 

241 SUCCO DI UW 

269 

SUCCO POMODORO CONO. 


N. 


*£180 


80 SUCCO POMPELMO 
340 TAPIOCA 

307 TINCA 

83 TORTA CIOCCOLATO 
389 TORTA MISCELA BIMCA 

154 TRIPPA DI BOVINO 

40 UOVA AL BURRO 

189 UOVO- ALBUME MEDIO 
79 INA SPINA FRESCA 

375 VINO DA PASTO (V.M.) 

381 WHISKY 
206 YOGURT MAGRO 
113 ZUCCA POLPA FRESCA 
263 ZUCCHINE 

81 SUCCO POMPELMO DOLCE 
288 TARTUFI 

53 TOWO ALL'OLIO IN SC 
34 TORTA DI MELE 
400 TORTA MISCELA GIALLA 

314 TROTA (VALORI MEDI) 

41 UOVA SODE 

190 UOVO- TUORLO MEDIO 
2 VERDUTE COTTE MISTE 
151 VINO DA PASTO COMUNE 

191 WURSTEL (VAL. MEDI) 
195 ZAMPONE 

367 ZUCCHERO D'WA 

178 TACCHINO 
370 THE 

324 TONNO FRESCO 
24 TORTA DI MERINGA 
323 TRIGLIA 

49 TROTA BOLLITA 
58 UOVO MEDIO 
251 INA SECCA 

376 VERMOUTH 

168 VITELLO (VAL.MEDI) 

208 YOGURT INTERO 
275 ZUCCA GIALLA 

368 ZUCCHERO RAFFINATO 


Listato 2 - SORT / STAMPA 


1 REM ********************** 

2 REM * SORT E STAMPA * 

4 REM * COPYRIGHT (0 1985 * 

5 REM * BY MICROSPARC, INC * 

6 REM * & APPLICANDO * 

7 REM ********************** 

100 REM ** SORT E STMIPA ** 

102 D$ = CHR* (4):8C* = CHR$ (2):G$ - CHR* (7): GOTO 120 
00 

104 REM **SUBR0UT1NES** 

275 REM * APRE I FILE DA LEGGERE** 

280 PRINT DI*OPEN * :FILEV .L" ;RL 
285 PRINT D$ , READ , ;FlLE$ , f R , ;R)( 

290 RETURN 

314 REM **SUBRQUTINE** 

320 REM **LEGGE LA LUNGHEZZA DEI RECORD E DEI CtfiPI** 

325 PRINT DTOPEN B ;FILE* + BC$ 

330 PRINT WREAD'jFILE* + BC$ 

335 INPUT NFs INPUT RLi DIM T$<2 * NF),TV(NF),P$(NF) 

340 FOR K = 1 TO NF: INPUT T*(K): INPUT TV(K): NEXT K 
345 PRINT D$"CLOSE°FILE$ 4 BC$ 

350 RETURN 

355 REM **APRE I FILE DA LEGGERE** 

360 PR.1NT WQPEN a ;FILE$ R i L B ;RL 
365 PRINT {ft'READ";FILEt",R0" 

370 RETURN 

375 REM **INTESTAZIONE PAGINA** 

380 PRINT "N. * * 4 5 6 7 8 ; : HTAB 12; PRINT 'CIBO 8 ; : HTAB 27; PRINT "N, 
■s; POKE 36,39; PRINT 'CIBO";: POKE 36,54: PRINT "N.*;: 
POKE 36,66: PRINT 'CIBO 8 
385 PRINT 

390 PP = PP 4 1;BL = 0 
395 RETURN 


400 REM **STAMPANTE ACCESA** 

405 HOME : PRINT : PRINT "STAMPANTE NELLO SLOT £";G$: INPU 
T SLOT 

425 PRINT DVPRPjSLOT: PRINT CHR* (9);"80N" 

430 RETURN 

435 REM «STAMPA DEI CIBI* 

440 PRINT RX(Dì! HTAB 5: PRINT P$(l);: HTAB 27: PRINT RX(2 
);: HTAB 31: PRINT P$(2)j: POKE 36,54: PRINT RX(3); : PO 
KE 36,58: PRINT P$(3) 

445 RETURN 

1200 REM «ROUTINE DI SORT** 

1205 DIM SRT$(REC),SO(REC) 

1210 SF = 1 :S1 = 1 

1215 HOME : VTAB 10: HTAB 16: FLASH ; PRINT "SORTING": NORM 
AL : VTAB 20: PRINT "**(D 1984 BY APPLICAt4DO & MICROS 
PARC**": VTAB 10: HTAB 23 
1220 PRINT D$"OPEN , FILE$ , ,L , ;RL 

1225 FOR K = 1 TO REC:RX = K: GOSUB 285: IF SF = 1 THEN 123 
5 

1230 FOR L = 1 TO SF - 1 : INPUT Z$: NEXT L 
Ì235 INPUT SRT$(K):SO(K) = K: NEXT K 
1240 PRINT DVCLOSE"FILE* 

1245 M = 1 

1250 M = 3 * M-4 1: IF M < REC THEN 1250 
1255 M = (M - 1) / 3: IF M < 1 THEN 1275 

1260 FOR J = M + 1 TO REC:LL = J - M:SS* = SRT^(J) :S = SO(J 

) 

1265 IF SI = (SRT$(LL) > SS*) THET4 SRT*(LL 4 M) = SRT*(LL): 

SO(LL + M) = SQ(LL) :LL = LL - M: IF LL > 0 THEN 1265 

1270 SRT*(LL + M) = SS*:SCKLL + M) = S: NEXT J: GOTO 1255 

1275 REM **LISTA DI SORT COMPLETA** 

1280 RETURN 

1290 REM «SUBROUT1NE** 

2050 GOSUB 1200 

1200C TEXT : REM «STAMPA LISTA DEI CIBI DELL'UTILIZZATORE» 
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del programma che reca i numeri 
100—12280. Diverse linee del pro¬ 
gramma replicano quelle della Dieta, 
dato che vengono usate qui molte su¬ 
broutine identiche. 

Caricano il programma le linee 
12000-12020 della Dieta. Poi viene 
ordinata (linea 12050) dalla subrouti¬ 
ne la lista presa dalle linee 1200 -1280. 
(Questa routine è prelevata anch’essa 
dall’"Sistema Base".) Dopo il comple¬ 
tamento deH’ordinamento la lista vie¬ 
ne stampata nel formato visibile nella 
Tabella 1. 

Sviluppo 
e applicazioni 

Non è stato fatto alcun ricorso alla 
grafica dell’Apple: è la considerazione 
immediata che vi verrà in mente. I 
confronti con le esigenze quotidiane 
sarebbero molto adatti a una raffigu¬ 
razione per istogrammi. Gli alti e bassi 
a lungo termine sarebbero, se tracciati 
in alta risoluzione, un utile supple¬ 
mento dell’analisi a lunga scadenza co¬ 
sì come può essere perfezionata tutta 
la parte di esplorazione dei dati sui cibi 
e dei numeri di record. 

Un altro interessante campo su cui 
lavorare per migliorare questo pro¬ 
gramma è certamente una stima mag¬ 
giore sui livelli di attività fisica in mo¬ 
do che il computer, con tutti gli ele¬ 
menti a disposizione, possa dare effi¬ 


caci suggerimenti anche per ciò che^ 
concerne l’attività fisica, in tal modo 
sarebbero bilanciate le esigenze ener¬ 
getiche sia in termini nutrizionali che 
in termini di attività fisica. Si potrebbe 
fare in modo insomma di avere una 
risposta precisa alla domanda: cosa 
debbo fare per perdere x chili in y 
settimane? 

Note finali 

Noterete, usando il programma, 
che bastano pochi minuti per tener 
conto degli elementi nutritivi lungo il 
corso di una giornata, mentre la valu¬ 
tazione dell’entità delle porzioni è 
davvero difficile. 

Riteniamo che chiunque stia facen¬ 
do un serio tentativo di perdere peso 
con l’aiuto del programma farebbe be¬ 
ne a pesare in un primo tempo i suoi 
cibi. A questo proposito dovete ricor¬ 
dare che le ossa e altre parti dei cibi 
normalmente considerate non com¬ 
mestibili non devono essere incluse 
nel peso. L’esperienza vi permetterà 
poi di valutare con molta precisione il 
peso delle vostre porzioni anche senza 
l’uso della bilancia. 

La direttiva deH’American Medicai 
Association sulla proporzione delle 
calorie da ricavare da proteine, car¬ 
boidrati e grassi sembra davvero diffi¬ 
cile da soddisfare. Riteniamo che nella 
media noi mangiamo troppi grassi. 
Abbiamo anche notato che la quantità 


12010 HOME :FILE$ = “CIBI": GOSUB 320:RX = 0: GOSUB 275: IN 
PUT REC 

12020 FRINÌ WCLOSE-sFILE» 

12030 TEXT : HOME 
12050 GOSUB 1205 

12040 TEXT : HOME ; VTAB 10: HTAB 5; PRINT ‘MEMORIA DISPONI 
BILE=*: VTAB 10: HTAB 24: PRINT FRE (8):: PRINT ■ BY 
TES": F0R K = 1 TO 2000: NEXT K 
12070 GOSUB 400 
12080 PP = 1:SP = IsBL = 1 
12090 F0R K = 1 T0 6: PRINT : NEXT K 
12100 GOSUB 375 
12110 BL = 1 

12120 PRINT D$;*0PEN";FILE**,L";RL 
12130 K4 = REC / 3:K5 = INT (REC / 3): IF (K5 < K4) THEN K 
4 = K5 4 1 

12140 F0R K! = 1 T0 K4 

12150 F0R K2 = 1 T0 3:K3 = ((3 * <K1 - 1) + K2)): IF (K3 > 
REC) THEN GOTO 12180 
12140 RX(K2) = SQ(K3) 

12170 PRINT D$;"READ*; FI LEI*,R*;RX(K2): INPUT P$(K2> 

12180 NEXT K2 
12190 GOSUB 435 

12200 F0R K2 = 1 T0 3:P*<K2) = ’ * : NEXT K2 
12210 IF SP = 5 THEN PRINT :SP = 0 
12220 IF BL = 40 THEN PRINT ; P0KE 36,59: PRINT ‘ALLA PR0S 
SIMA PAGINA®: F0R K = 1 T0 14; PRINT : NEXT K; GOSUB 
375 

12230 SP = SP + 1;BL = BL + ! 

12240 NEXT KU 

12250 PRINT D*;*CLQSE‘;FILE* 

12260 PRINT D$i R PR£0‘ ' 

12270 HOME : VTAB 10: FLASH ; PRINT "L0ADING 'DIETA PERSONA 
LIZZATA": N0RMAL 

12280 PRINT Wj-RUN DIETA PERSONALIZZATA* 



di proteine raccomandata è ben al di¬ 
sopra di quella considerata minima dal 
Nutrition Almanac. 

In definitiva ci è parso di poter con¬ 
cludere che si può mangiare notevol¬ 
mente di più di quanto si sia abituati e, 
con una adeguata assunzione di pro¬ 
teine, conservare ugualmente il peso o 
perdere i fastidiosi "chili in più" che 
tante volte abbiamo cercato di elimi¬ 
nare. 

L’estate è alle porte, la linea è sem¬ 
pre uno degli obbiettivi da raggiunge¬ 
re prima della fatidica esposizione ai 
raggi del sole. Questa DIETA PER¬ 
SONALIZZATA fa al caso vostro: 
sarà il compagno fedele che vi permet¬ 
terà di sfoggiare una perfetta siluet¬ 
te. Proprio come se, al posto di diver¬ 
tirvi con la tastiera, quest’inverno ave¬ 
ste fatto soltanto attività sportive! 
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Questo programma è disponibile su 
dischetto. L’elenco, i prezzi e le 
modalità d’ordine di questo e degli altri 
dischetti disponibili sono riportati nella 
rubrica Disk Service. 
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^ 0 . Un modello di Data Base che vi permette di ritrovare in 
< 20 ^ tempo reale il numero telefonico di una persona? E che a 
Natale e a Pasqua vi stampi le etichette con gli indirizzi di 
tutti coloro ai quali volete spedire gli auguri? Non solo... 


Agenda telefonica 


A bbiamo affrontato nella puntata 
precedente di questo corso prati¬ 
co per l’uso di AppleWorks (Tre per 
te), il Data Base. Poiché l’argomento 
era più impegnativo di quelli singolar¬ 
mente affrontati nelle puntate prece¬ 
denti, non abbiamo proposto nessun 
modello pratico, ma con alcuni sem¬ 
plici esempi di costruzione di un "ma¬ 
gazzino" avevamo evidenziato i co¬ 
mandi principali e le più importanti 
funzioni di questo "programma nel 
programma". In questo articolo, l’in¬ 
tento è di rafforzare quelle nozioni, 
costruendo un modello pratico di 
agenda telefonica, che non solo risul¬ 
terà, speriamo, molto utile a chiunque 
ne sia interessato, ma che metterà in 
grado chi ci ha seguito fin qui di co¬ 
struire da solo qualunque modello di 
Data Base adatto alle proprie esigenze 
personali. 

Ometteremo di ricordare, per buo¬ 
na parte, quanto visto nella puntata 
precedente, ricordando solo quelle 


istruzioni, magari un po’ più comples¬ 
se, con le quali la familiarità viene so¬ 
prattutto con l’uso. 

Eseguita la procedura preliminare 
per far partire AppleWorks e scelto il 
programma Data Base ex novo, la pri¬ 
ma cosa da fare, e che richiede lo stes¬ 
so computer, è di dare un nome al 
nostro nuovo file. Lo chiamiamo 
Agenda tei. I vari campi da riempire, 
sempre come richiesto dal computer, 
sono quelli della figura 1. Attenzione 
ai campi contraddistinti da una sempli¬ 
ce lineetta: hanno grande importanza: 
vedremo nel capitolo destinato alle 
stampe il perché. Chi avesse esigenze 
diverse da quelle standard che propo¬ 
niamo, può benissimo eseguire tutte le 
varianti del caso, con l’avvertenza e lo 
spassionato consiglio di leggere prima 
fino in fondo l’articolo. 

Per prima cosa, utilizzando l’opzio¬ 
ne mela vuota V, che permette di inse¬ 
rire in qualunque campo un valore 
standard, mettiamo le parole UFFI¬ 


CIO e CASA in corrispondenza del 
primo e del terzo campo contraddisti 
dalle lineette (figura 2). 

Si tratta ora di riempire alcune sche¬ 
de di prova con nominativi qualunque 
o, meglio ancora, con nominativi rea¬ 
li: tutta fatica risparmiata in seguito. 
Per ragioni di ovvia riservatezza, negli 
esempi che vi proporremo, abbiamo 
usato i signori Bianchi, Rossi, eccete¬ 
ra. 

Nella figura 3, è visibile una scheda 
tipo: notate che per l’ufficio sono pre¬ 
senti solo quattro numeri di telefono, 
ma sulla stessa riga c’è spazio per scri¬ 
vere fino a otto numeri telefonici di 
sette cifre. 

Ricerca 
e ordinamento 

Una volta inseriti, scheda per sche¬ 
da, tutti i nominativi desiderati (si pos¬ 
sono gestire contemporaneamente cir- 


Figura 1 

File: AGENDA TEL. CAMBIA NOME/CAMPO Esc: Rev/Agg/Hodifica 

None carapo 

Figura 2 

File: AGENDA TEL. VALORI STANDARD Esc: Rev/Agg/Modifica 

Record 

COGNOME 


COGNOME: - 

NOME 

Parametri : 

NONE: - 

VIA 


VIA: - 

CAP-CITTA-PROV. 

Batti none canpo 

CAP-CITTA-PROV.: - 

- 

Freccia sù Và a canpo precedente 

-: UFFICIO 

- 


-: CASA 

NOTE 


NOTE: - 

NOTE 


NOTE: - 

AUGURI 


AUGURI: - 

Batti un valore o usa i comandi $ 

35K Disp. 

Batti i valori standard dei campi 39K Disp. 


38 










ca 700 schede), fatta salva natural¬ 
mente la possibilità di inserire i nomi¬ 
nativi anche in fasi successive, per cer¬ 
care il numero telefonico del signor 
Bianchi basta premere mela vuota C. 
Il computer richiede che vengano bat- 


Figura 3 

File: AGENDA TEL. REV/AGG/MQDIFICA 

Selezione: Tutti i record 


Record 1 di 93 


COGNOME: Bianchi 
NOME: Giuseppe 
VIA : Via Rodi 1 

CAP-CITTA-PROV.: 24100 Bergamo <BG) 
-: UFFICIO 
-: (035)-?730?l 
-: CASA 

-: (035)-221?33 
NOTE: DIPENDENTE 
NOTE: - 
AUGURI: SI 


tu ti i dati di confronto: in parole pove¬ 
re, bisogna scrivere la parola o il nu¬ 
mero che si vuol cercare. Battete 
Bianchi (sempre che nella vostra 
Agenda telefonica ci sia un Bianchi) : il 
video si presenta come nella figura 4. 
Battete RETURN, e la scheda del si¬ 
gnor Bianchi compare a video pratica- 
mente in tempo reale. 

Naturalmente è bene ordinare alfa¬ 
beticamente le schede ogni volta che si 
fanno degli inserimenti. Per questo 
basta posizionare il cursore aH’interno 
del campo COGNOME in una delle 
schede inserite (una qualunque), pre¬ 
mere mela vuota O: il menù che com¬ 
pare è quello di figura 4. Scegliete l’or- 
dinamento 1 (da A a Z) e battete RE¬ 
TURN. In pochi istanti tutto il file 
verrà ordinato in ordine alfabetico per 
cognome. Se premete mela vuota Z e 
scorrete l’elenco usando le frecce su e 
giù, scoprirete un nuovo modo per 
consultare l’agenda telefonica. 

Fin qui, i vantaggi di un’agenda tele¬ 
fonica come questa non sono poi tanto 
superiori a quelli offerti dai comuni e 
consunti quaderni che riportano in co¬ 
pertina il familiare nome di RUBRI¬ 
CA. Vero è che in quei quaderni i 
nomi vengono aggiunti in ordine alfa¬ 
betico, ma solo nel senso che tutti i 
cognomi che cominciano per B sono 
sotto la B. Chi non si è mai innervosito 
durante la ricerca di qualche cogno¬ 
me, spenga pure il computer e conti¬ 
nui a scrivere tradizionalmente a ma¬ 
no i numeri di telefono. 

Vantaggi più evidenti cominciano a 
riscontrarsi quando, anziché un solo 
nominativo, si vuole avere sotto mano 
un intero gruppo. Ecco il perché di 
quei due campi NOTE. Se infatti si 
utilizzano per contraddistinguere le 
persone secondo una categoria di ap¬ 


Esc: Menù Base 


Figura 4 

File: AGENDA TELEF. 
Cerca tutti i record 


partenenza, per esempio DIPEN¬ 
DENTE, FORNITORE, CLIENTE, 
e così via, in qualsiasi momento si po¬ 
trà avere l’elenco di ogni categoria a 
video, per poi stamparne un elenco 
oppure le etichette per le buste che 
possono contenere una comunicazio¬ 
ne destinata a quella categoria, eccete¬ 
ra. 

Per eseguire la selezione, basta pre¬ 
mere mela vuota R, posizionare il cur¬ 
sore nel primo campo NOTE (o nel 
secondo, dipende dai dati inseriti), 
battere RETURN, posizionare la bar¬ 
ra luminosa su UGUALE, battere 
RETURN, scrivere il dato di confron¬ 
to, in questo caso DIPENDENTE, 
battere RETURN ed ESC, se non si 
vuole concatenare altri concetti con le 
opzioni di E, O, FINO A, premere 
mela vuota Z per avere i nomi, anziché 
scheda per scheda, in una tabella a 
video che presenta contemporanea¬ 
mente fino a 15 nominativi (figure da 6 
alO). Quando avete terminato di uti¬ 
lizzare la selezione, non dimenticate di 
riselezionare tutte le schede, prima di 
credere di esservi persi quasi tutti i dati 
che avete inserito. Basta che premiate 
mela vuota R: il menù che vi si presen¬ 
ta è quello di figura 11. Opzionate il 
Sì, e tutti i record saranno di nuovo 
disponibili. 

La stessa procedura di selezione va 
seguita quando, a Natale e a Pasqua, si 
decide di inviare gli auguri ad alcuni 
dei nominativi contenuti nell’agenda 
telefonica. Posizionate il cursore al¬ 
l’interno del campo AUGURI e sele¬ 
zionate tutte le schede che hanno SI in 
questo campo: nel paragrafo prece¬ 
dente abbiamo elencato nel dettaglio 
tutti i comandi da eseguire; ripeteteli 
esattamente, mettendo SI al posto di 
DIPENDENTE. 


CERCA RECORD Esc: E1 in ina Valore 


Batti un valore o usa i comandi § 


S-? per Aiuto 


Batti i dati di confronto: Bianchi 


39K Disp. 











Stampa dell’Agenda 

Può non essere sempre comodo ave¬ 
re l’Agenda inserita nel computer; 
conviene in questo caso avere un elen¬ 
co in ordine alfabetico stampato su 
carta. Premete mela vuota S: vi si pre¬ 
senta il menù della figura 12. Con le 


frecce su e giù scegliete l’opzione Crea 
un nuovo formato "tabella* e RE¬ 
TURN. Il computer chiede un nome 
da dare al prospetto: lo chiamiamo 
RUBRICA. Dopo aver battuto RE¬ 
TURN, sul video compare la videata 
di figura 13. Posizionatevi col cursore 
all’inizio di NOME e, tenendo premu¬ 


ta mela vuota, premete freccia destra 
per spostare NOME a destra di CO¬ 
GNOME. Sempre tenendo premuta 
mela vuota, premete freccia su e posi¬ 
zionate COGNOME subito dopo NO¬ 
ME, lasciando solo uno spazio tra i 
due. Con il cursore sempre sotto la N 
di NOME, premete mela vuota J: ser- 


Figura 5 


Figura 6 



File; AGENDA TELEF. ORDINAMENTO 

Esc: Rev/Agg/Modifica 

File: AGENDA TEL. 

SELEZIONA RECORD Esc: Rev/Agg/Modifica 

Selezione: Tutti i record 


Selezione: 





1. COGNOME 



Questo file deve essere ordinato 


2. NOME 



nel campo: COGNOME 


3. VIA 

4. CAP-CITTA-PROV. 



Tipo di ordinanento: 


5. - 

6 . - 



1. Da A a 2 


7. - 



2. Da 2 ad A 


8. - 



3. Da 0 a 9 


9. NOTE 



4. Da 9 a 0 


10. NOTE 

11. AUGURI 



Batti un numero, o usa le frecce e premi Return 

36K Disp. 

Batti un numero, o usa le frecce e premi Return 

35K Disp. 

Figura 7 


Figura 8 



File: AGENDA TEL. SELEZIONA RECORD 

Esc: Rev/Agg/Nodifica 

File: AGENDA TEL. 

SELEZIONA RECORD 

Esc: E1 imina Valore 

Selezione: NOTE 


Selezione: NOTE uguale 



1. uguale 

2. è maggiore di 

3. è minore di 

4. è diverso da 

5. è vuoto 

6. non è vuoto 

7. contiene 

8. inizia con 

9. finisce con 

10. non deve contenere 

11. non deve iniziare con 

12. non deve finire con 


Batti un numero, o usa le frecce e premi Return 

35K Disp. 

Batti i dati di confronto: 

DIPENDENTE 

35K Disp. 

Figura 9 


Figura IO 



File: AGENDA TEL. SELEZIGNA RECORD 

Esc: Rev/Agg/Nodifica 

File: AGENDA TEL. 

REV/AGG/NQDIF1CA 

Esc: Menù Base 

Selezione: NOTE uguale DIPENDENTE 


Selezione: NOTE uguale DIPENDENTE 




COGNOME NOME 

VIA 

CAP-CITTA-PROV. - 



Verdi Antonio 

Vittorio Veneto 20100 Milano <M UFFICIO 

1. e 


Verdi Antonio 

Vittorio Veneto 20100 Milano <M UFFICIO 

2. o 


Bianchi Giuseppe 

Rodi 1 

24100 Bergamo ( UFFICIO 

3. fino a 


Bianchi Giuseppe 

Rodi 1 

24100 Bergamo < UFFICIO 



Bianchi Giuseppe 

Rodi 1 

24100 Bergamo ( UFFICIO 



Bianchi Giuseppe 

Rodi 1 

24100 Bergamo ( UFFICIO 

Batti un numero, o usa le frecce e premi Return 

35K Disp. 

Batti un valore o usa i comandi S 

§-? per Aiuto 
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KEYDATA 


Tre confezioni di diskette originali più un table clock quartz ad 

UN PREZZO STREPITOSO!* 


Rivolgiti 

mmediatamente 


presso 

il tuo rivenditore 
di fiducia 


Distributore esclusivo per l'Italia 


Se 


informati 


rre 


Via Umbria, 10-36/A 

Tel. (0522) 38655/512345/31334 

42100 Reggio Emilia 




MN DISKETTE no 


101 PK 


MN DISKETTE no 

pioocR'o 5101 PK 


MN DISKETTE no 


ATTENZIONE L’OFFERTA È VALIDA FINO A GIUGNO 




















ve ad allineare COGNOME e NOME 
tra loro, qualunque ne sia la lunghez¬ 
za. Con la medesima procedura spo¬ 
state e allineate VIA, CAP-CITTA- 
PROV. e le quattro lineette. Dopodi¬ 
ché, posizionate il cursore a sinistra, 
esattamente nella riga sotto COGNO¬ 
ME, in corrispondenza della C, e pre¬ 


mete mela vuota E, tante volte quante 
ne occorrono per ottenere il risultato 
visibile nella figura 14 , per eliminare 
cioè tutte le righe che non interessano. 

Si tratta ora di stabilire i parametri 
di stampa: premete mela vuota P e 
state attenti essenzialmente a tre cose. 

1. Battete CP, RETURN, 17, per 


selezionare il carattere più piccolo di¬ 
sponibile su stampante; 

2. Controllate l’altezza della carta 
che state usando (11 pollici? 12?) e 
inserite i parametri relativi battendo 
AC, RETURN, 11 (o 12, a seconda, 
appunto) ; 

3. Copiate le opzioni di formato 
esattamente come appaiono nella fi¬ 
gura 15. Per cambiare una di queste 
opzioni da SI a NO e viceversa, basta 
battere le loro iniziali (CS, SL, ST, 
OL, US) seguite da RETURN. 

Battete infine ESC, mela vuota S, 
scrivete la data del giorno, RETURN, 
impostate quante copie di stampa vo¬ 
lete avere (massimo 9), RETURN e in 
pochi minuti il vostro elenco sarà 
stampato come compare nella figura 
16. 

Se non vi interessa che in questo 
elenco figuri 1’indirizzo, perché vi ba¬ 
sta l’elenco dei nominativi seguito dai 
numeri telefonici, basta che eliminiate 
anche i campi VIA, CAP-CITA- 
PROV. Oppure se, viceversa, volete 
aggiungere nell’elenco i campi relativi 


Figura 11 

File: AGENDA TELEF. SELEZIONA RECORD Esc: Rev/Agg/Modifica 

Selezione: COGNOME uguale BIANCHI 


Seleziona tutti i record? No Si 

Figura 12 

File: AGENDA TEL. MENU DI PROSPETTO Esc: Rev/Agg/ModiTica 

Prospetto: Nessuno 


Figura 13 

File: AGENDA TEL. FORMATO PROSPETTO Esc: Menù di Prosar.:c 

Prospetto: RUBRICA 
Selezione: Tutti i record 


1. Prendi un Tornato prospetto 

2. Crea un nuovo Tornato 'tabella* 

3. Crea un nuovo Tornato 'etichetta* 

4. Duplica un Tornato esistente 

5. Cancella un Tornato 


COGNOME 

NOME 

VIA 

CAP-CITTA-PROV. 


NOTE 

NOTE 

AUGURI 

-Qg n | record sari stanpato su 11 linee- 


Batti un nunero, o usa le Trecce e preni Return 


Figura 14 

File: AGENDA TEL. FORMATO PROSPETTO 

Prospetto: RUBRICA 
Selezione: Tutti i record 


30K Disp. 


Usa le opzioni della Pagina Aiuto 


Figura 15 


Esc: Menù di Prospetto 


File: AGENDA TEL. PARAMETRI DI STAMPA 

Prospetto: RUBRICA 


§-? per Aiuto 


Esc: Fornato Prospetto 


-Margini Sinistro e Destro-. -Margini Alto e Basso- 




LC: Larghezza Carta 

8,0 Pollici 

AC: Altezza Carta 

11,0 Pollic 



MS: Margine Sinistro 

0,0 Pollici 

MA: Margine Alto 

0,0 Pollic 

COGNOME <N0ME <VIA <CAP-C1TTA-PR0V. <- <- <- <- 


MD: Margine Destro 

0,0 Pollici 

MB: Margine Basso 

0,0 Pollic 

-Ogni record sarà stampato su 1 

1inee- 

CP: Car./Poliice 

17 

LP: Linee/Pollice 

6 



Lunghezza Linea 

8,0 Pollici 

Altezza di Stanpa 

11,0 Pollic 



Car./linea (stin) 

136 

Righe per pagina 

66 


-Opzioni di Tornato- 

CS: Codici Speciali per la stanpante No 
SL: Stanpa Lineette se un campo è vuoto No 
ST: Stanpa Titolo a ogni inizio pagina Si 
OL: Onetti Linea se tutti i campi sono vuoti Si 
US: Usa lo Stesso nunero di linee per ogni record Si 


Usa le opzioni della Pagina Aiuto 


§-? per Aiuto 


Batti le 2 lettere del parametro 


2?K Disp. 
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POCHE URI 



Le stampanti MT/85, a 80 colonne, e MT/86, a 136 
colonne, rappresentano una nuova frontiera nel 
settore delle stampanti a basso costo. 

Basso costo, ma non bassa qualità e basse 
prestazioni, infatti ecco le credenziali dì questi due 
nuovi prodotti. 

Velocità a 180 cps. bidirezionale ottimizzata, NLQ 
a 45 cps., grafiche, possibilità di 8 fonti alternative 
di caratteri e naturalmente la completa 

compatibilità con il PC IBM. 

Il prezzo: il più competitivo del 
mercato in questa fascia di 
prestazioni. 

Naturalmente anche le MT/85/86 
oltre ai trattori hanno anche 
trascinamento a frizione e 
consentono pertanto il 
trattamento del foglio singolo. 




20094 Corsico (MI) - Via Cadamosto, 3 
Tel, (02) 4502850/855/860/865/870 - Telex 311371 Tally I 
00137 Roma - Via I. Del Lungo, 42 - Tel. (06) 8278458 
10099 San Mauro (TO) - Via Casale, 308 -Tel. (011) 8225171 
40050 Monteveglio (BO) - Via Einstein, 5 - Tel. (051) 832508 


adverteam 












Figura 16 


File: AGENDA TEL. 

Report: RUBRICA 

Altobelli Giuseppe Via Bellini 90 20100 Milano UFFICIO <02)-5598231 CASA <02)-66ó298 

Belli Patrizia Via Tinavo 8? 20090 Segrate (MI) UFFICIO <02)-6?99032 CASA (02)-774533 

Bianchi Giuseppe Via Rodi 1 24100 Bergano (BG) UFFICIO <035)-773091 CASA (035)-221733 

Cesari Cesare Via Sanzio 18 20100 Milano (MI) UFFICIO (02)-557? CASA (02)-<S69943 

Giacomelli Andrea Via Del Castagno 76 00100 Roma UFFICIO <06)-7655908 CASA 432219 

Rinaldi Antonio Via Vicenza 55 00100 Roma UFFICIO <06>-2388 CASA <06)-4498322 

Rottoli Rottolo Via Rotta 55 36100 Vicenza UFFICIO (0444)-322289 CASA (0444)-667444 

Sabatini Mario Via Del Carroccio 13 20100 Milano UFFICIO <02)-4335788 CASA <039)-8?7652 

Siroli Domenico Via L. Da Vinci 54 24100 Bergamo (BG) UFFICIO (035)-556439 CASA (035)-885311 

Verdi Antonio Via Vittorio Veneto 15 20100 Milano (MI) UFFICIO (02)-4457863-8863210 CASA <Q39)-665400 


Page 1 
15 maggio 1985 


Figura 17 

File: AGENDA TEL. FORMATO PROSPETTO Esc: Menù di Prospetto 

Prospetto: AUGURI 
Selezione: AUGURI uguale SI 


COGNOME (NOME 
VIA 

CAP-CITTA-PR0V. 


-Ogni record sari stampato su 6 linee- 


Usa le opzioni della Pagina Aiuto 5-? per Aiuto 


Figura 18 

File: AGENDA TEL. PARAMETRI DI STAMPA Esc: Formato Prospetto 

Prospetto: AUGURI 


--Margini Sinistro e Destro- -Margini Alto e Basso- 


LC: Larghezza Carta 

8,0 Pollici 

AC: Altezza Carta 

1,0 Poi 1ic 

MS: Margine Sinistro 

0,0 Pollici 

MA: Margine Alto 

0,0 Pollic 

MD: Margine Destro 

0,0 Pollici 

MB: Margine Basso 

0,0 Pollic 

CP: Car./Poi 1 ice 

17 

LP: Linee/Pollice 

6 

Lunghezza Linea 

8,0 Pollici 

Altezza di Stanpa 

1,0 Pollic 

Car ./linea (stila) 

136 

Righe per pagina 

6 


-Opzioni di Formato- 

CS: Codici Speciali per la stampante No 
SL: Stampa Lineette se un campo è vuoto No 
ST: Stampa Titolo a ogni inizio pagina No 
OL: Ometti Linea se tutti i campi sono vuoti Si 
US: Usa lo Stesso numero di linee per ogni record Si 


Batti le 2 lettere del parametro 26K Disp. 


alle NOTE o agli AUGURI, basta che 
non li cancelliate, come avevamo indi¬ 
cato più sopra, e li allineiate in una 
seconda riga, procedendo nel modo 
già descritto. 

Stampa degli auguri 

Il secondo formato di stampa di cui 
avete bisogno è 1’ etichetta per effet¬ 
tuare qualunque spedizione di circola¬ 
ri, memo, o altro, ma soprattutto per 
trovarsi già bell’e fatto il lavoro di spe¬ 
dizione degli auguri a Natale e a Pa¬ 
squa, che tutte le volte fa perdere mol¬ 
to tempo perché bisogna sfogliare 
un’intera agenda, compilare elenchi 
che poi vengono battutti a macchina, e 
così via. Se avrete l’accorgimento, a 
mano a mano che inserite i nominativi 
nell’agenda telefonica, di segnare in 


partenza un SI o un NO nel campo 
AUGURI, vi ritroverete ad aver ri¬ 
sparmiato un sacco di tempo. 

Premete mela vuota S per seleziona¬ 
re il menù della figura 12, scegliete 
l’opzione Crea un nuovo formato " eti¬ 
chetta", datele il nome AUGURI e, ese¬ 
guendo le operazioni già indicate più 
sopra, riproducete il formato della fi¬ 
gura 17. Un’avvertenza: è chiaro che 
stamperete gli indirizzi sulle apposite e 
comode etichette autoadesive. Per ot¬ 
tenere una stampa perfetta, dovete 
stare attenti, nel selezionare poi i pa¬ 
rametri di stampa, che le righe per 
pagina corrispondano esattamente al¬ 
le righe occupate da ciascun record. 
Nella figura 17, potete vedere che le 
righe del record saranno sei; nella fi¬ 
gura 18, le righe per pagina sono ap¬ 
punto sei, e vengono ottenute selezio¬ 
nando l’altezza della carta, in questo 


caso uguale a uno. Le righe per record 
dipendono ovviamente dall’altezza 
delle etichette: se usate etichette alte 
otto righe, l’altezza della carta deve 
essere 1,4, e così via. 

Se qualcosa non vi è chiaro, potete 
scrivere ad Applicando , Rubrica Ap¬ 
ple Works, per chiedere ulteriori delu¬ 
cidazióni o sottoporre quesiti relativi a 
problemi o, ancora, esprimere le vo¬ 
stre esigenze relative a eventuali mo¬ 
delli che non siete riusciti a creare. 

Saranno bene accolte anche le espe¬ 
rienze di coloro che ritengono di aver 
risolto efficacemente problemi specifi¬ 
ci. 


Questo programma è disponibile su 
dischetto. L’elenco, i prezzi e le 
modalità d’ordine di questo e degli altri 
dischetti disponibili sono riportati nella 
rubrica Disk Service. 

- ^ 
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Vieni a prorare Macintosh 
come migliorare la tua e] 


Mai guida sarà più facile! Un dito - il tuo dito 
- basta per lavorare con Macintosh, il rivoluzionario 
personal computer Apple. 

Senza dover imparare il computerese, ti basta 
premere il tasto del mouse per dare ogni tipo di 
comando a Macintosh. 

Così 5 minuti dopo averlo conosciuto, sei già 
in grado di usare Macintosh produttivamente, 
perché Macintosh dispone di un’ampia biblioteca di 
programmi aziendali e professionali, per soddisfare 
tutte le esigenze della tua attività - che tre sia 
direttore marketing, giornalista o manager, 
commercialista, direttore finanziario o architetto, o 
qualunque altro sia il tuo job. 

Puoi verificarlo tu stesso, partecipando alla 
Prova su strada Macintosh. I rivenditori Apple ti 
aspettano. 

Avrai a tua disposizione, per questa stimolante 
esperienza, strumenti tecnici specializzati: decine di 
programmi da usare da solo con l’aiuto di 
un’audiocassetta e di un libretto che descrive 
accuratamente ogni operazione. 

Inoltre: un Macintosh; un tavolo di lavoro e, 
naturalmente, un esperto, pronto a soddisfare ogni 
tua curiosità professionale. 

Potrai lavorare con Macintosh nel trattamento 
dei testi, e per disegnare; potrai conoscere i nuovi 
potenti programmi per archiviare e gestire 
informazioni; per affrontare con sicurezza le 
operazioni contabili più complesse. E ancora, 
utilizzerai programmi di grafica aziendale; e la 
gestione di progetto non sarà più un argomento 
ostico. 

In trenta minuti potrai renderti conto di 
quanto la qualità del tuo lavoro può essere 
migliorata, con risparmio di tempo, e con la 
possibilità di prendere la decisione finale dopo aver 
esaminato in tutti i particolari qualsiasi alternativa si 
presenti. 


Il MacCfS 


^ |1 habadex 





















Scopri in trenta minuti 
ieienza professionale. 



Terminata la Prova su strada, forse ti troverai 
a considerare la prospettiva di voler lavorare in un 
modo più interessante e produttivo. 

Per riflettere su questo abbiamo preparato il libro 
“Macintosh. Un nuovo modo di lavorare”: 120 pagine 
dedicate al computer professionale e ad una serie 
esauriente di applicazioni e software. 

Compila e spedisci la cartolina che trovi dal 
rivenditore, aggiungendo i tuoi commenti 
sull’esperienza avuta con Macintosh. 

Sarà nostro piacere inviarti a casa il 
libro, senza alcuna spesa da parte tua, 
fino ad esaurimento dell’alta tiratura 
realizzata. 

Se invece decidi subito di acquistare 
un Macintosh, questo è il momento di 
fare un buon affare, anzi tre: un 
programma applicativo - a scelta da un 
elenco dei dodici più interessanti - 
con uno sconto speciale di L. 200.000; 
le Pagine Gialle Elettroniche SEAT al prezzo 
straordinario di L. 100.000; programmi 
a scelta dal catalogo Bit&Bytes, con uno 
sconto del 10%. 

Hai mai fatto una Prova su strada 
così stimolante? 




































Basta il tuo dito pei 



seìsmi 


Il puntatore assume la forma 
dello strumento che hai scelto. 
, la matita. 


Per indicare la parte che vuoi 
ritagliare dallo schermo basta 
racchiuderla in un rettangolo 
tratteggiato. 


Tre tavole mostrano le 
immagini di ciò che hai a 
disposizione: gli strumenti, 
gli spessori del tratto, i retini. 


Non sei obbligato a lavorare 
solo nell’area del disegno che 
vedi sullo schermo: puoi 
spostarti a destra, a sinistra, 
in alto e in basso. 




Punta. 



I 


Indicare col dito è la comunicazione più 
elementare che conosciamo. 

Punta l’indice il bambino che ancora non 
parla, punta l’indice il cartello che indica 
l’uscita. 

Per questa ragione Apple ha pensato che il suo 
nuovo Macintosh, attuale punto di riferimento per 
ogni personal computer, dovesse abbandonare ogni 
dialogo basato su un linguaggio artificioso ed 
impegnativo, ed imporre i modi espressivi umani 
più semplici, come puntare il dito sulla cosa che si 
desidera. 

E Macintosh funziona così: muovi una piccola 
simpatica scatoletta - il mouse - collegata a 
Macintosh sul piano del tuo tavolo, e sposti così 
una freccia sullo schermo, il puntatore. 

Porti il puntatore sulle immagini dello 
schermo che rappresentano gli strumenti che vuoi 
impiegare (matita, gomma, calcolatrice, cestino...) 
e premi il tasto sul mouse. 


Hai scelto così lo strumento e sei 
pronto ad impiegarlo. Oltre alle immagini lo 
schermo ti offre delle liste di operazioni che 
puoi leggere portando il puntatore sul loro 
titolo e cliccando sul mouse. Allo stesso modo 
scegli l’operazione dal menù puntando col 
mouse e cliccando. Nella illustrazione qui sopra 
abbiamo eseguito un disegno usando il 
programma MacPaint ed abbiamo trasformato il 
puntatore in una matita, per poter disegnare. 



Taglia. 

Ora, se desideri trasferire questa 
illustrazione su una pagina di testo, per 
esempio una lettera, fai la cosa più naturale 
di questo mondo: delimiti un’area intorno 
all’illustrazione portando il puntatore sul 
simbolo giusto (rettangolo tratteggiato). 

Apri uno dei menù situati nella parte 








































































usare Macintosh. 


Macintosh "ricorda" l’immagine Macintosh ti crea 

che hai ritagliato e la conserva automaticamente lo spazio per 

per te. inserire nel testo la tua 

illustrazione. 



Con Macintosh puoi stampare 
qualsiasi documento per il tuo 
lavoro e per l’ufficio, anche la 
modulistica. 








alta dello schermo e scegli il comando 
“taglia” tra quelli che appaiono 
premendo sul mouse. Lascia il 
pulsante e... zac, è fatto. 

Incolla. 

A questo punto la tua 
illustrazione 
rimane im¬ 
magazzinata 
nella 
grande 
memoria di 
Macintosh. 
Inserisci 
ora il 
dischetto 
del 

programma 
MacWrite 
per il 

trattamento 


dei testi (ne parliamo più avanti) e scrivi la lettera. 
Stabilisci - anche dopo aver ultimato la lettera - il punto 
dove vuoi inserire l’illustrazione, seleziona Incolla dal 
menù Composizione, ed è fatto! 

Stampa. 

Come puoi ben immaginare a questo punto 
tutto il lavoro per produrre una lettera “illustrata” 
è completato, e Macintosh ha in memoria ogni dato 
di tutto ciò. Ottenere una stampa su carta è solo un 
dettaglio. La stampante qui raffigurata è la 
ImageWriter di Apple, e stampa sia i testi che le 
immagini con riproduzione ad alta qualità. 

Scegli col puntatore la voce “stampa” dal 
menù dei comandi, rilascia il pulsante ed è tutto 
fatto. La stampante si mette in azione e la lettera 
comincia ad apparire sul foglio. Ricorda: tutto ciò 
che appare sullo schermo viene fedelmente stampato 
sulla carta. P.S. Con la nuova stampante LaserWriter 
il livello di qualità supera addirittura quello della 
immagine-video, per questo puoi evitare un viaggio 
in tipografia ed i costi relativi. 




















I tuoi pensieri subito 
in bella copia. 


Nelle pagine precedenti abbiamo sottolineato 
la facilità d’uso di Macintosh. Ora vogliamo mostrare 
come anche il tuo lavoro quotidiano diventa più 
facile e, se non ti dispiacciono i cambiamenti, molto 
più incisivo. 

Cominciamo dall’ABC, cioè dal trattamento 
dei testi, e usiamo MacWrite, il programma creato 
apposta per Macintosh e per tutti coloro che con 
le parole lavorano tutti i giorni - per scrivere 
un promemoria, un libro, oppure una relazione. 

Con Macintosh e MacWrite una cosa è certa: 
per ordinare i testi nel corpo e nello stile desiderati, 
con le spaziature e i margini preferiti, bastano un 
dito e un tasto: il' tuo indice e il tasto del mouse. 
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- Parmigiano 

- Gorgonzola 

- Pecorino 



Con MacWrite puoi dare ai tuoi scritti rimpaginazione e la forma che 
preferisci. 

I menù di MacWrite, attivati dal mouse, 
consentono di cambiare caratteri, stile, formato del 
documento intero o di una parte di esso: parole 
singole o interi paragrafi, in centinaia di soluzioni. 
Inclusa la tua. 

Puoi personalizzare i tuoi documenti 
riportando sempre nell’intestazione, o a piè di 
pagina, il titolo del documento stesso, oltre alla 
numerazione progressiva delle pagine. Puoi 
anche indicare su ogni pagina la data e l’ora 
in cui hai stampato il documento, e ogni 
volta che ne farai una versione 
aggiornata, anche la data e l’ora 
verranno automaticamente aggiornati. 

E le azioni più semplici come 
cancellare, spostare e inserire? 


Diventano persino più banali, e non lasciano 
tracce estranee o enigmatici richiami sul foglio. 



Puoi scegliere tra 7 caratteri, 8 stili e 6 corpi diversi, combinabili fra 
loro. 


Dove veramente Macintosh compie un miracolo 
proibito alla maggior parte dei personal computer, 
è nella abilità ad integrare, nella stessa pagina, parole 
ed immagini. Grazie all’incredibile potenza dei 32 bit, 
puoi trasformare la tua vecchia cartella dattiloscritta 
in un moderno strumento di comunicazione. 

Insomma, con Macintosh e MacWrite puoi fare 
tutto quello che la tua fantasia vorrebbe, ma che la 
macchina da scrivere non ti consente. 

In corpo 12, carattere Chicago, 

0 con qualsiasi altro carattere e stile, fra i tanti 
disponibili. 











































Fine ddl’awentura. 

Il tuo archivio funziona! 


Il polveroso archivio, immagine del mondo 
aziendale di inizio secolo, non è solo un ricordo. 
L’era dell’informazione propone la necessità di 
potenziare la sua insostituibile funzione di fonte di 
dati, con strumenti più adeguati a guidare le 
decisioni: Macintosh e i programmi di Data Base. 

Nella gestione dei dati, appare scontato come 
il più avanzato dei computer professionali abbia 
dalla sua la potenza e la velocità. 

Ulteriori vantaggi derivano dalla qualità e dalla 
varietà del software applicativo che, unite alla logica 
“umana” di Macintosh, rendono possibili e facili 
analisi un tempo lunghe e costose. 

Lo stesso dito indice che usavi una volta per 
consultare le schede, usalo dunque sul mouse per 
lavorare con archivi elettronici molto più razionali 
e veloci. 

Filevision, ad esempio, ti offre la possibilità di 
archiviare le immagini, oltre alle parole e ai numeri. 



Con Filevision puoi associare delle immagini alle informazioni, in modo 
da usufruire di un archivio visivo. 

Utilizzando funzioni automatiche di disegno, 
puoi realizzare le immagini per associarle ai dati 
relativi, ed ottenere le informazioni che ti servono 
in modo più espressivo ed immediato. Poi, puoi 
decidere di consultare i dati nei diversi modi 
possibili: numericamente, graficamente, ecc. 

Con le Pagine Gialle Elettroniche della SEAT, 
invece, puoi avere un colpo d’occhio 
immediato su una scelta di nuovi possibili 
fornitori su tutto il territorio nazionale; 
ciascuno qualificato da informazioni 


selezionate. Ciò è reso possibile dal collegamento via 
telefono di Macintosh al computer della Banca Dati 
della SEAT. 

Perchè Macintosh è collegabile con tutti i tipi 
più diffusi di “mainframe” e di personal computer; 
per ricevere iriformazioni o darne. 



Macintosh si collega con le banche dati disponibili in Italia e allestero. 
Nell'esempio, le Pagine Gialle Elettroniche della SEAT. 

Se infine per te il sistema d’archiviazione più 
funzionale è quello classico a schede, bene, ora 
c’è MacCFS, uno schedario elettronico che puoi 
organizzare secondo le tue abitudini; inoltre MacCFS 
ti dà la possibilità di stampare indirizzi, ad esempio 
su etichette o buste per mailings: il tuo personale 
viene così sollevato da un lavoro indubbiamente 
noioso, e resta disponibile per dedicarsi ad attività 
più produttive. 

Tutto con un dito, il mouse e Macintosh. 



















CFS Schedario Specifiche Operazioni 


Cerca auanti 


Cerca indietro 


flrchioio di FOI 


Scheda numero... 3€ 


TELEFONO: 02/243598 


GIUDIZIO: incerto 

































Hai tutti i numeri peravere 
successo. Ora dalli a Macintosh. 


Ci sono professioni la cui sostanza si evidenzia 
meglio in immagini, professioni la cui espressione è 
legata alla parola, detta e scritta; difficile però, in ogni 
caso, pensare al lavoro senza avere a che fare con 
i numeri. Gli stessi numeri che diventano la lingua 
d’obbligo in interi settori dell’attività umana. 

C’è un solo modo per affrontare in maniera 
agguerrita ma rilassata un problema con importanti 
contenuti numerici: usare Multiplan della Microsoft 
per Macintosh. 



Con il foglio elettronico, Multiplan svolge rapidamente i tuoi calcoli, 
anche i più complessi. Ad esempio, un Breakeven. 

Non hai idea di quanti calcoli puoi fare a 
questo punto con il tuo dito indice, se gli metti a 
disposizione il mouse! Puoi considerare l’andamento 
dei costi nei prossimi anni, e ad ogni nuovo 
elemento da te introdotto come ipotesi, Multiplan 
ricalcola automaticamente tutte le conseguenze: 
tu puoi così valutare attentamente le scelte più 
convenienti per la tua attività. Senza perderti in 
ripetizioni di cifre, percentuali o totali. 

Naturalmente puoi lavorare contemporaneamente 
con più fogli contabili, per confrontare o 
integrare i risultati. 

Puoi anche creare formule che dipendono 
luna dall’altra, e che possono essere risolte 
con l’utilizzo di procedimenti iterativi. 

Questa possibilità fa di Multiplan un 
potente strumento in grado di creare 
modelli di analisi previsionali, eseguire 
calcoli contabili ed altre operazioni 
complesse. 



Per quante variazioni tu voglia considerare - in questo caso, di prezzo - 
Multiplan ricalcola immediatamente ogni elemento. 

L’importante, con i numeri, è rimanere 
rilassati! 

Con Multiplan e Macintosh anche i calcoli più 
complessi sono velocemente risolvibili: i menù - cioè 
le immagini visive con cui il computer ti offre le 
sue specifiche prestazioni - presentano tantissime 
opzioni possibili; inoltre con Multiplan hai a 
disposizione delle “finestre di dialogo”, che ti 
consentono di rispondere nella maniera più semplice 
alle alternative che si presentano via via. 

Avrai ormai capito che nessuna attività può 
facilmente fare a meno di Multiplan. Anche se per 
tradizione si considerano i numeri come appannaggio 
esclusivo di determinate categorie di lavoro... 
chi può resistere alla tentazione di valutare in 
anticipo il successo economico della propria azienda, 
nei prossimi dieci anni? 
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Se le afre nonparlano, 
chiedi aiuto ai grafia. 


Il mondo dei “tuoi numeri” è ora più saldo: 
non teme la stanchezza delle operazioni ripetute 
e gode l’affidabilità che viene dall’aver esplorato ogni 
ipotesi. Se ti chiedi quanto di tutto ciò dipenderà 
dalla tua capacità a comunicare con Macintosh, 
la risposta è semplice: niente. Con Macintosh non 
avrai mai il dispiacere di ricevere sullo schermo 
un laconico messaggio come “syntax error”. 

La sintassi di Macintosh è la stessa che hai tu. Usa 
lo stesso tuo percorso logico, si esprime in immagini 
che ti sono familiari, e non in gerghi per iniziati. 

In particolare, quando lavori con i numeri, devi 
convenire che ciò è estremamente importante. 

Le cifre non parlano sempre chiaro e non 
dicono, come dovrebbero, le stesse cose a tutti. 

Ora non c’è niente di meglio che rendere 
i numeri chiari e comprensibili per far apprezzare 
la validità di un’analisi. Hai certamente esperienza 
di interlocutori poco amanti delle cifre, o che 
le previsioni di sviluppo preferiscono “vederle”. 



puoi batterli con la tastiera, oppure trasferirli con 
un comando direttamente da Multiplan. Perché Chart 
è lo strumento complementare ideale di Multiplan. 

Infatti puoi stabilire un collegamento fra un 
foglio elettronico di Multiplan e un documento di 
Chart; poi, ogni cambiamento che introduci all’interno 
del modello viene automaticamente riportato anche 
su Chart: di conseguenza, i tuoi grafici sono sempre 
aggiornati. Senza ulteriori interventi da parte tua. 



Microsoft Chart ti offre 40 diversi tipi di grafici, tra cui scegliere. 

Chart ti offre la possibilità di scegliere fra 
quaranta tipi di grafici diversi quello più 
rappresentativo per la tua analisi; e in più puoi idearne 
quanti altri vuoi. E scegliere per la legenda il corpo 
e il carattere che vuoi. Ora la maggior chiarezza 
nell’esposizione del tuo lavoro si traduce in maggior 
ascolto da parte dei tuoi interlocutori, e maggior 
comprensione del problema trattato. 


Macintosh e Microsoft Chart visualizzano i dati dell’esempio 
precedente in un grafico immediatamente comprensibile. 

È il momento di carta millimetrata, 
squadra, righello e compasso? No, è il momento 
di Microsoft Chart, un programma di grafica 
aziendale studiato per Macintosh. Con la 
stessa semplicità con cui trasformi - con 
Multiplan - le tue cifre in risultati concreti, 
allo stesso modo con Microsoft Chart 
puoi trasformare i tuoi risultati in 
chiarissimi grafici. Innanzi tutto 
introduci i tuoi dati: è molto semplice, 




































































é Archiuio Composizione Selezione Formato Opzioni Calcola 


RI C1 


[Progetto di ampliamento uffici ~ Terzo annoi 


Ampliamento uffici 



« i 

2 1 

1?1 

4 1 

5 

I 1 

Progetto di ampliamento uffici 

- Terzo anno 



1 2 

Budget stanziato: 900 (ved. analisi costi - "Spese Generali") 


| 3 





8 4 

il" 

Quadr. 

2"Quadr. 

3~Quadr. 

TOTALI 

8 5 

Spese murarie 

140 

90 

50 

280 

| 6 

Aumento personale 

70 

55 

150 

275 

8 7 

Fotocopiatrice 

6 

12 

6 

24 

| 8 

Aumentate spese gestione: i 




8 9 

-Telefono 

9 

9 

12 

30 

| IO 

-Installazione Telex 

10 

5 

5 

20 

1 1 1 

“•Pulizia e manutenz. 

6 

6 

8 

20 

8 12 

-Luce 

7 

9 

1 1 

27 

I 13 

-Cancelleria 

2 

4 

8 

14 

1 14 

-Macchine Ufficio 


1 10 

100 

210 

[Ts " 

. totale; 

250 

300 

350 

900 















































Se devi disegnare. 
0 ti piace fedo. 


Le professioni “creative” vanno assumendo 
importanza sempre maggiore nella nostra società. 

La fantasia trova in esse un’area di rivalutazione giorno 
dopo giorno, con esigenze nuove ed al passo con 
il nostro tempo. La necessità di essere sempre più 
innovativi e al tempo stesso tempestivi nel comunicare 
le nuove idee rende indispensabile l’ingresso del 
computer anche nella creatività. E oggi, con programmi 
come DaVinci, Mac The Knife e MacPaint, finalmente il 
computer non è più uno strumento di lavoro che offre 
applicazioni chiuse, ma una macchina per viaggiare più 
velocemente nell’immaginazione e nella creazione. 

Con DaVinci - Buildings, Interiors, Landscapes - 
tracciare piante e sezioni di interni o esterni, 
o disegnare costruzioni, è cosa davvero veloce. Certo, 
tu devi avere buone idee, per lavorare bene con 
DaVinci, ma puoi realizzarle tutte, e più velocemente. 

In scala, e con tutti i particolari che vuoi. 


Una piccola cosa copiata da Mac The Knife può essere 
utilizzata da te in mille modi diversi. E creativi. 



Màc The Knife: uno strumento per la tua creatività grafica. 



Il layout dei nuovi uffici, disegnato con gli elementi di DaVinci della 
Hayden Software. 

Dai cornicioni più classici ai mobili più 
moderni; dalle prese di corrente alla darsena privata. 
In tutte le dimensioni desiderate, ruotando, 
allargando, comprimendo. La simmetria non è un 
problema, perché ti basta disegnare solo la metà 
del tuo elemento, Macintosh poi copia, ruota, 
incolla! Oppure puoi usare DaVinci come 
archivio elettronico di idee tue e solo tue, 
realizzate magari con l’aiuto del 
catalogo elettronico Mac The Knife, 
una raccolta di oltre 500 illustrazioni, 
simboli, motivi ornamentali, caratteri. 


Se però preferisci il disegno a mano libera, o se 
proprio questa è l’esigenza del tuo lavoro, allora usa 
soltanto MacPaint. Sotto la guida di MacPaint la tua 
mano, muovendo il mouse, tràccia i segni liberi con 
una dotazione ricchissima di tratti (incluso lo spruzzo 
di uno spray!) che puoi selezionare dalla tavolozza degli 
strumenti. Con una scelta di quaranta fondi, oltre a 
quelli che puoi creare tu, riempi, circondi, differenzi. 
Puoi spostare le immagini, ruotarle, conservarle in un 
blocco schizzi elettronico, per riutilizzarle più tardi 
o inserirle in un documento scritto. Perché MacPaint, 
usato con MacWrite, ti dà la possibilità di produrre una 
pagina scritta ed illustrata. Particolare non privo di 
importanza: questi due programmi sono forniti 
gratuitamente all’acquisto di Macintosh. 
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I tuoi progetti hanno 
una scadenza. Non due, né tre. 


Nelle pagine precedenti hai conosciuto gli 
strumenti che ti offre Macintosh per trattare i testi, 
gestire informazioni, elaborare dati, produrre grafici, 
disegnare e visualizzare professionalmente. 

Ora vogliamo parlarti della “gestione di progetto”. 



é flrchiuio Comp. Foglio Rttiuità Esposiz. Cete Caratteri Stile 


Il PERT di MacProject ti dice subito chi deve fare cosa, e quando. 

Di solito, questo termine richiama alla mente 
immagini di budget elevati da ripartire fra numerose 
attività che devono essere completate in tempi 
troppo ristretti. 

Forse pensi anche che per fare ciò con un 
computer sia necessario un software complesso, 
difficile da utilizzare e costoso, oltre ad un computer 
di proporzioni inaccessibili per un professionista. 

Bene, non è così. Perché se hai Macintosh, 
puoi utilizzare MacProject, lo straordinario 
programma per pianificare e controllare i progetti. 
Ora una grande memoria, una logica ferrea e tutta 
la velocità che ti serve lavorano per te. 

Devi solamente fornire a Macintosh le 
informazioni relative alla durata delle singole 
attività, le loro eventuali interdipendenze 
e l’indicazione della data ultima entro la quale 
il progetto deve essere terminato. 

Se vuoi valutare anche l’aspetto 
finanziario, allora aggiungi i costi di ogni 
singola attività. Al resto pensa MacProject: 
calcola tutti i passaggi intermedi, ne indica 
le date ed evidenzia il percorso critico, 
cioè la sequenza che unisce le attività il 
cui ritardo farà slittare l’intero progetto. 

Se intervengono nuovi fattori, non devi 


fare altro che inserire i nuovi elementi: MacProject è in 
grado di ricalcolare ogni passaggio, costi compresi. 



.Aggiungendo una nuova attività, MacProject ridefinisce il percorso critico 
- in neretto - aggiornando ogni fase. 


Questo significa che puoi fare varie ipotesi di 
lavoro, domandarti cosa può cambiare nel tuo 
progetto senza pregiudicare il risultato, o cosa 
potresti fare per ottimizzare il progetto. 

Se hai valutato anche i costi delle attività, Mac 
Project ti fornisce il “CashFlow”, cioè una tabella che 
ti mostra di quanti soldi hai bisogno in ogni specifico 
momento nel corso del progetto. E nel calcolare le date 
e le scadenze, MacProject tiene conto delle festività 
e delle giornate non lavorative! Certo, MacProject non 
può pianificare al posto tuo, esalta però al massimo 
le tue capacità organizzative e ti permette di avere 
sempre un piano aggiornato, senza dover aggiungere 
al tuo PERT il tuo tempo per modificarlo. 


















































































I 

I 



é fìrchiuio Comp. Foglio Rttiuità Esposiz. Date Caratteri Stile 


Easy Cheese 


[paOOSflF® SUMMIT 


Giorni Inizio Anticipato Fine Anticipata Inizio Ritardato 


Nome Attività 


22 - 10-84 


22 - 10-84 


22 - 10-84 


Inizio 


5 - 11-84 


29 - 10-84 


Studio della Promozione 


22 - 10-84 


Contratto Fornitori 


22 - 10-84 


25 - 10-84 


23 - 10-84 


22 - 10-84 


1 - 11-84 


22 - 10-84 


Licenza d importazione 


25 - 10-84 


29 - 10-84 


30 - 10-84 


Test Formula 


Progetto Contenitore 


25 - 10-84 


31 - 10-84 


26 - 10-84 


1 - 11-84 


1 - 11-84 


11-84 


Inizio Produzione 


Revisione Pubblicità 


5 - 11-84 


12 - 11-84 


12 - 11-84 


Spedizione Prodotto 


1 - 11-84 


19 - 11-84 


1 - 11-84 


Lancio Prodotto 


19 - 11-84 


19 - 11-84 


19 - 11-84 
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Proposta per una nuova linea 
caseari per il mercato 


di prodotti 
USA. 



SOMMARIO 


Scheda vacazione prodotto 
- Stima costi di produzione 
Statistiche di mercato 
~ Proposte grafiche 
I Yf lutazioni economiche 


Giorgio Galiberti 
USA Branch Office 
NT. 

14 Giugno 1955 
*0-30 a.m. 






Visto. Si stampi. 


Dopo aver visto tutto quello che Macintosh 
può fare per migliorare il tuo lavoro e come il 
software oggi disponibile possa coprire ogni tua 
esigenza, è il momento di trasferire tutto ciò sulla 
carta. 

Perché sai quanto sia importante riuscire a far 
“percepire” ai tuoi interlocutori il vero significato 
che hai voluto attribuire al tuo lavoro, e sai come 
uno scritto sia inequivocabile. 


ATTUALE RETE PI DISTRIBUZIONE PER 

LINEA "EASY CHEESE" 



LOCALITÀ' 

California 

Beverly Hitls 

DISTRIBUTORE FATTURATO 

Happy Gourmet Ine 4.<300.000 $ 

CONTATTO 

David Pitrnan 

Florida 

Orlando. 

World's Specialties 

1.200.000 % 

Susan Gilman 

Massachussets 

Boston 

Tasty Food 

7 000.000 I 

Thomas Brook 

Illinois 

Chicago 

Cheese Paradise 

5 600 000 $ 

Liz Tamblin 

Ohio 

Cleveland 

Ready-to-Eat 

2.000.000 $ 

Rate Stuart 

New York 

Albany 

The Dairy 

3 400.000 % 

Scott Mason 

Michigan 

Detroit 

J. Blake & Son Ine 

1.800.000 $ 

Chris Bedford 

New jersey 
Paterson 

Horne Buffet 

4.000.000 $ 

Jane Tailor 


J 


Per questo, al termine di questa lunga 
chiacchierata su Macintosh, vogliamo presentarti la 
sua stampante: ImageWriter. 

ImageWriter è in grado di offrirti un’alta qualità di 
stampa, e tu sai che in certi casi la forma vale quasi 
quanto la sostanza. Parole, disegni, schemi grafici, 
tutto ciò che hai creato sullo schermo diventa un 
documento scritto. 


Con ImageWriter i tuoi documenti, le tue 
relazioni, i tuoi progetti, e tutto quello che hai 
saputo creare con l’aiuto di Macintosh, diventano 
efficaci strumenti di comunicazione, in grado di 
convincere e stimolare i tuoi interlocutori; e tu puoi 
organizzare ed aggiornare i tuoi documenti in modo 
più funzionale. 

E presto sarà disponibile anche la nuovissima 
stampante LaserWriter in grado di offrirti una 





Qui di seguito riporto la tabella di 
allocazione delle risorse relativa al progetto 
di lancio di Easy Cheese 


22-10 29-10 5-11 


Studio delloPromolio 
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C o n t r|;3.;U o P o r n vt o r i 

licenza d'importazione 


Ti 


IT 
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qualità fotografica che ti eviterà viaggi in tipografia 
e costi relativi. 

Cos’altro aggiungere a quanto detto finora 
a proposito di Macintosh e del tuo lavoro? Poco, 
ma importante: fai una visita al rivenditore Apple; 
per provare di persona quanto più piacevole e 
produttivo può diventare il tuo lavoro domani. 

Sei il benvenuto. 






































Qui puoi scoprire come lavorerai domani. 


Valle D’Aosta 

INFORMATIQUE - Av.du Conseil des Commis 16 - Aosta 
INFORMATIQUE 2 - Reg. America 31 - Quart 

Piemonte 

COMINFOR SISTEMI - C.so Telesio 4/B - Torino 
DIMENSIONE PERSONAL - Via Bettola 22/E - Torino 
TECNOSYSTEM COMPUTER SHOP - C.so Francia 12 - 
Torino 

TERNO COMPUTERS - Via Madama Cristina 31/C ■ Torino 
THEMA • Via Statuto 10 - Cuneo 
CENTRO COMPUTER - Via Paruzza 2 - Alba 

D. R.- Via Morera 3 • Novara 

Lombardia 

AG INFORMATICA • Via G. Silva 49 - Milano 
ALL’INFORMATICA • Via Lazzaretto 2 - Milano 
C.E. COMMUNICATIONS ENGINEERING • P.Firenze 4 ■ 
Milano 

COMPUTER SHOP DELTRON - Viale Gransasso 30 - Milano 
ESPRIT - Via Bergamini 13 • Milano 
IL TEMPIO DEL COMPUTER • Via Pattari 2 - Milano 
INFORMATION TECHNOLOGY • Via Dei Bossi 7, 

Ang. Via Broletto - Milano 
MICROTECH SISTEMI - V.le Piave 7 - Milano 
POLISISTEMI - Via Derna 19 - Milano 
SMALL BUSINESS COMPUTERS - Via Vitruvio 38 - Milano 
COMPUTER LANDIA • POLO - V.le Martiri Libertà 72 - 
Lissone 

ESI - Via Cavallotti 11 - Monza 
PERSONAL COMPUTER SHOP - Via L. Da Vinci 36 - 
Trezzano S/N 

COMPUTER AREA • Via A.Volta 27/A - Villasanta 
COMPUTER AREA SHOW ROOM - Via Carducci 2 - 
Villasanta 

IL MONDO DELL’INFORMATICA - Via Pitentino 8 - 
Bergamo 

O. R.O. - Via Carducci 9/A - Bergamo 
STUDIO 15 - Via Quarenghi 60 - Bergamo 
IL COMPUTER - Via Solferino 5 - Brescia 
L’INFORMATICA - P.zza Vescovado 1 - Brescia 
BIT SHOP - Via Quarena 120 • Gavardo 
IRPE INFORMATICA - Via Cadorna 3 - Como 
M.A.S.H. COMPUTER SYSTEMS ■ Via Della Rocchetta - 
Ang.C.so Garibaldi • Pavia 

M.A.S.H. COMPUTER SYSTEMS • Via XX Settembre 33-35 - 
Voghera 

IRPE • Via Dei Carantani 1 - Varese 
IRPE COMPUTER • Via Pegoraro 8 - Gallarate 

Trentino Alto Adige 

SI.GE. COMPUTER SHOP - Via Giovanni a Prato 22 • 

Trento 

Friuli Venezia Giulia 

COMPUTERMARKET (DEC SISTEMI) - Via Valdirivio 6 - 
Trieste 

ELCOM - C.so Italia 149 - Gorizia 
ELECTRONIC CENTER - V.le Libertà 79 - Pordenone 

P. S. ELETTRONICA • ViaTavagnacco 89 - Udine 

Veneto 

BOFFELLI ELETTRONICA SERVIZI ■ S. Ho 5824 • Venezia 
ELETTRONICA SERVIZI - C.so Del Popolo 32/E - Mestre 
PACINOTTI ■ Via Torino 82 - Mestre 
ELETTRONICA SERVIZI • Via Bastia Fuori 2/A - Mirano 
COMPUTER SERVICE - Via Beethoven 3 - Padova 

E. D.P. - Via Borromeo 16 - Padova 
PACINOTTI - Via Palestra 12 - Padova 
COMPUTER SERVICE • Via Cavallotti 12 • Rovigo 
UOMO COMPUTER - C.so Mazzini 53 - Montebelluna 
CODEX - V.le De Gasperi - Treviso 

ABC INFORMATICA - Contra’Porta Padova 19 - Vicenza 
ABC INFORMATICA - V.le S. lazzaro 19 Vicenza 


UOMO COMPUTER - Via Olmo 38 - Creazzo 
EFFECOMP - Via Campestrini 2/A • Montecchio Maggiore 
CHIP COMPUTER - Stradone S.Fermo 8 - Verona 
COMPUTER SHOP - Via Del Pontiere 2 - Verona 
ESA-COMP - Via Roveggia 43 - Verona 
MOS 80 - Via Germania 21 - Verona 
PERSONAL COMPUTERS - Largo Marzabotto 21 • Verona 
Liguria 

COMPUTER CENTER - Via S.Vincenzo 109/R - Genova 
COMPUTER CENTER - Via Storace 4/R - GE-Sampierdarena 
IL COMPUTER - V.le Brig.Partigiane 132R - Genova 
SALS INFORMATICA • Via G. D’Annunzio 2 - Genova 
TP-TECN. INFORM. IMPRESA - Via Interiano 1 - Genova 
RAFFO GIOVANNI D.I. - C.so Genova 100 - Lavagna 
RAFFO GIOVANNI D.I. - Via Della Ubenà 130 - Rapallo 
BOTTEGA DEL COMPUTER - V.Martiri Ubertà 180 - 
Sanremo 

I.L ELETTRONICA - Via Veneto 123 La Spezia 
BRIANO - C.so Tardy e Benech 20R - Savona 

Emilia Romagna 

COMPUTER SYSTEMS - Via Ercolani 10/D - Bologna 
EDP SISTEMI - V.le Pietramellara 61/F - Bologna 
LUCKY SYSTEMS - Via Farini 33/A - Bologna 
SERCOM - Via Berengario Da Carpi 9/B - Bologna 
COMPUTERS ■ Via S.Pier Grisologo 38 - Imola 
SPAZIO BIT - P.zza Codronchi 1/A - Imola 
CANALGRANDE INFORMATICA - C.so Canal Grande 14 - 
Modena 

INFOMOD ■ Via Giardini 464/A • Modena 
IRET - C.so Canalgrande 29 - Modena 
IRET - Via Berengario 58 - Carpi 
IRET - Via Pretorio 65 - Sassuolo 
RCM COMPUTER - C.so Vittorio Emanuele II, 96 - Piacenza 
IRET - Via Cavallotti 3 - Parma 
RCM COMPUTER - Via Farini 51/A ■ Parma 
RCM COMPUTER • Via Contini Malpeli 11 - Fidenza 
IRET - Via Emilia S.Stefano 32 - Reggio Emilia 
POOL INFORMATICA COMPUTER SHOP - Via Emilia 
S. Stefano 9/C Reggio Emilia 
Toscana 

ANFREL INFORMATICA Via Masaccio 50 - Firenze 

COMPUTER UNE - V.le Spartaco Lavagnini 20 - Firenze 

LINE • G.Di Vittorio 10 • Firenze 

RA COMPUTER TOSCANA ■ V.le Petrarca 122 • Firenze 

SOLUZIONI E.D.P, ■ C.so Tintori 39/R - Firenze 

TUTTO COMPUTER - Via Panzani 36/38R - Firenze 

C.D.S. - Via Mazzini 5 - Arezzo 

SISTED - P.zza Risorgimento 10 - Arezzo 

LIVINFORM - Via Roma 8 (P.zza Attias) - Hvomo 

LIVINFORM DUE - Scali delle Cantine 62 • Hvomo 

LOGOS INFORMATICA - V.le S. Concordio 537 - Lucca 

EURO COMPUTER - P.zza Bertagnini 4 • Massa 

DATA PORT DUE • Via Sancasciani 35 - Pisa 

S.E.T. - Via Fucini 20 • Pisa 

DATA PORT - Via Brigate Partigiane 27 - Pontedera 

Marche 

SISTEDA - Via Flaminia 286 - Ancona 
MED - P.zza Rosselli 6 - Fabriano 
NEW COMPUTER - P.zza Pergolesi 2/M - Jesi 
RINASCITA INFORMATICA - V.Trento e Trieste 17 - 
Ascoli Piceno 

MICRO SYSTEM - Via Cavour 3 - S. Benedetto Del Tronto 
M.E.D. - Via Mozzi 72/A - Macerata 
M.E.D. - Via V.Venanzi 11 - Camerino 

Umbria 

L’INFORMATICA - Via S.Elisabetta 26 - Perugia 
MICROCOGIT - Via Dei Filosofi 24 - Perugia 
READYCOMPUTER - Via Adriatica 49 - Ponte S.Giovanni 
UNEA INFORMATICA - Via Garibaldi 81 - Foligno 


Lazio 

BIT COMPUTERS - Via Flavio Domiziano 10 - Roma-Eur 

BIT COMPUTERS - Via Francesco Satolli 55 - Roma 

BIT COMPUTERS - V.le Ionio 333 - Roma 

BIT COMPUTERS - Via Nemorense 14/16 - Roma 

BIT COMPUTERS - Via Tuscolana 350 - Roma 

COMPUTIME - Via Cola Di Rienzo 28 - Roma 

COMPUTIME - V.le Paridi 25 - Roma 

EASY-BYTE - Via Giovanni Villani 24 - Roma 

F.B.M. - Via Flaminia 395 - Roma 

F.B.M. - Via Flaminia 395D - Roma 

BIT COMPUTERS - Via A. Diaz 14 - Latina 

EASY-BYTE - Via E.Toti-Gall.Cisa - Latina 

BIT COMPUTERS - P. Belv. Conca-Lung. Caboto 74 - Gaeta 

BIT COMPUTERS - Via Palmanova 12/C - Viterbo 

Abruzzo 

C.P.S. INFORMATICA - Via Sallustio 57/59 - L’Aquila 
CHIP - Via Milano 77/6 - Pescara* 

GENERAL COMPUTER - Via N. Adriatica Nord 386 - Pescara 
ORMI COMPUTERS - Via C. Goldoni 5 - Pescara 
STUDIO PROTEO - Via Nicola Dati 4 - Teramo 
Campania 

COMPUTER SYSTEMS - Via G. Puccini 19 - Napoli 
GOLDEN COMPUTERS - Via Michelangelo 7 - Napoli 
LA BARBERA CARLO - Via Toledo 320 - Napoli 
I.C.C. ELETTRONICA - Via Degli Imbimbo 126 - Avellino 
COMPUTER SYSTEM - Via Bottiglieri 19 - Salerno 
SEDA - Via Parmenide (cavalcavia Mercatello) - Salerno 
Puglia 

AUDITORIUM 3 - P.zza Massari 15 - Bari 
CIESSE - Via Re David 176 - Bari 
L&L COMPUTERS - Ugo 2 Giugno 4 - Bari 
AUDITORIUM 3 - P.zza Garibaldi 12/A - Molfetta 
SIC - V.le S. Giovanni Bosco 109 - Brindisi 
I.S.I. INFORMATICA SISTEMI - Via Barletta 6 - Foggia 
QUASAR INFORMATICA - Via G, Arditi 11 - Lecce 
QUASAR INFORMATICA - Via Convento - Racale (LE) 
Basilicata 

GENERAL COMPUTER Discesa S. Gerardo 181 - Potenza 

Calabria 

MICRO-SYSTEMS - Via Roma 75/77 - Cosenza 
TECNOCOMP - V.le Affaccio 1 - Vibo Valentia (CZ) 
TECNOCOMP c/ o OFFICE STYLE - 

C.so Vittorio Emanuele 109 - Reggio Calabria 
TECNOCOMP - Via Nazionale S.S. 111, 117 - Gioia Tauro 
Sicilia 

SI.EL INFORMATICA - P.zza Galatea 2 - Catania 
INFORMATICA COMMERCIALE - Via Notarbartolo 23/B/C 
- Palermo 

CENTRO UFFICIO - Via Menfì 3 - Siracusa 

Sardegna 

SII. - Via S. Lucifero 85 - Cagliari 

Rivenditori autorizzati VAR. 

EMAC - Via L Devoto 25 - Genova 
L PAOLINI - Salita inf. della Noce 10/R Genova 
MODULO GENOVA - Galleria Mazzini 3/4 • Genova 
EGIDA - Via C. Balbo 6 - Milano 
NEW LINE-Via Frua 12-Milano 
CESAC - Via Ceresio 42 - Lomazzo (CO) 

BIOTECH - Via S. Valentino 18 - Roma 
ELDA - Lungotevere Marzio 12 - Roma 
L PAOUNI - Via Ostiense 48 - Roma 
L PAOUNI - Lgo Marchiafava 4 - Roma 
L PAOUNI - Via IV Novembre 157 - Roma 

É Apple Computer 


Trovi l’elenco completo dei rivenditori della tua zona nelle Pagine Gialle, alla voce “Personal computer” o “Elaboratori”. 


INNOVAZIONE 







R icordate quando eravate bambini 
e vi chiedevano cosa avreste fatto 
da grandi? Siamo certi che risponde¬ 
vate sempre il medico, l’aviatore, il 
pompiere o l’esploratore. Invece poi 
avete finito col fare il noiosissimo la¬ 
voro di stare alla scrivania. 

Adesso vi si presenta l’occasione di 
tornare a quei tempi felici e fare, sul 
vostro Apple, una delle professioni 
immaginarie e dimenticate della vo¬ 
stra infanzia. Con POMPIERI sarete 
infatti nei panni di un pompiere nel 
corso di un violento incendio di un 
orfanotrofio con il compito di salvare 
gli innocenti bambini che, disperati, si 
lanciano dalla finestra sul celebre telo¬ 
ne di salvataggio che reggete insieme a 
un vostro collega. 

POMPIERI è un programma in lin¬ 
guaggio macchina e BASIC per l’Ap¬ 
ple. Per digitarlo bastano cinque o sei 
giorni nei momenti liberi, ma se si la¬ 
vora a tempo pieno in un week end è 
possibile trasferire il tutto sull’Apple e 
ritrovarsi sotto le finestre dell’orfano¬ 
trofio di Lincoln, Massachusetts, con 
il telo in mano per cercare di salvare i 
bambini che si lanciano nel vuoto per 
sfuggire alle fiamme. 

Questo programma poteva essere 
scritto tutto in BASIC ma sarebbe sta¬ 
to troppo lento per mostrare la vostra 
abilità di pompieri. Il linguaggio mac¬ 
china è più difficile da digitare ma ha il 
pregio di essere ben più veloce del 
BASIC, assicurando il divertimento 
anche a coloro che sono dotati di ri¬ 
flessi fulminei. 


Pompieri 


Le cose si complicano quando avre¬ 
te salvato un certo numero di bambini: 
quelli che rimangono sul davanzale 
della finestra si sentiranno più sicuri 
della vostra abilità con il telo e comin- 
ceranno a lanciarsi a due o tre per 
volta fino a un massimo di sette bambi¬ 
ni contemporaneamente. 

Se si lascia che un bambino cada sul 
selciato la sua anima innocente viene 
trasportata nel Paradiso dei Bimbi che 
si trova in cielo, proprio sotto la parte 
superiore dello schermo. Naturalmen¬ 
te questo è un fatto abbastanza grave 
per un pompiere e quando i bambini 
ascesi in Paradiso sono in tre, il Corpo 
dei Vigili del Fuoco non può fare a 
meno di ritirarvi la licenza di pompiere 
e il gioco finisce. 

Per controllare la posizione del telo 


POMPIERI vi trasforma in pompie¬ 
re che deve salvare tutti i bambini che 
si lanciano dalla finestra del palazzo in 
fiamme. I bambini da portare in salvo 
debbono essere consegnati agli addetti 
dell’ambulanza che è accorsa sul po¬ 
sto, ma poiché, a causa delle fiamme, 
questa non si può avvicinare troppo 
all’orfanotrofio, è anche necessario 
che ogni bambino sia fatto rimbalzare 
sul telo più volte. 


Un incendio è scoppiato 
all’orfanotrofio, e voi siete un pompiere 
che deve salvare il maggior numero di 
bambini ospiti dell’istituto prima che le 
fiamme li aggrediscano. Se sbagliate 
tre volte sarete nei guai: il severo 
comandante vi toglierà la licenza di 
pompiere e sarete costretti a tornare al 
vostro solito lavoro. 
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1 - LISTATO: POMPIERI 


10 REM a**##*##*#*********#*#* 

11 REM * POMPIERI * 

12 REM * DI BILL FONTERBERRY * 

13 REM * COPYRIGHT (0 1985 * 

14 REM * 6Y APPLICANDO & * 

15 REM * MICROSPARC, INC. » 

16 REM *********************** 

100 TEXT : HOME ; VTAB 12; PRINT "(C) 1985 BY APPLICANDO & 
MICROSPARC, INC 
110 H1MEM; 8191 

120 PRINT ; PRINT CHRI (4)] , BLOAD INFERNO SHAPES" 

125 PRINT CHR* (4) ; B 8LGAD INFERT40 OBJ 3 
130 HGR ; GR ; HGR2 

140 SPEED= 255: TEXT : HCME : INVERSE : FOR I = 23 TO 1 STE 
P - 1 : VTAB I ; PRINT 3 

3 ; NEXT : REM 40 SPAZI 

150 VTAB 2: PRINT 8 ":: FLASH : PRINT "POMPIE 

RI 8 : INVERSE : REM 16 SPAZI FRA VIRGOLETTE 
160 PRINT : PRINT : PRINT 8 FAI PARTE DI UNA SQUADRA DI POM 
PIERI 8 : PRINT ’AI PIEDI DELL'EDIFICIO PER SALVARE I 8 : 
PRINT “BAMBINI CHE SALTANO DALL-'ORFANOTROFIO 8 : PRINT 8 I 
N FIAMME." 

170 PRINT : PRINT 8 LA TUA POSIZIONE E' COMANDATA DAI 8 : PRI 
NT 8 3 TASTI INDICATI SOTTO. 8 

180 PRINT ; PRINT 8 IL GIOCO TERMINA QUANDO HAI FATTO 8 : PRI 
NT "CADERE TRE BAMBINI SUL TERRENO..... 8 : PRINT 8 MANDAN 
DOLI NEL PARADISO DEI BAMBINI." 

190 PRINT : PRINT 8 ECCO I COMANDI": PRINT 8 

SINISTRA CENTRO DESTRA , 

r 

200 POKE 232.00: POKE 233,96 
210 RQT= 0: SCALE= 1 

220 REM IMPOSTA PUNTATORE PAGINA E DISEGNI 
230 POKE 230,64: GOSUB 410 

240 POKE 230,32: GOSUB 900 

250 PRINT : PRINT 8 NORMAL : PRINT “PREMI UN TASTO 

PER GIOCARE": POKE -16368,0: REM 7 SPAZI FRA VIRGO 
LETTE 

260 IF PEEK ( - 16384) < 128 THEN 260 
270 POKE 786, INT ( RND (0) * 40) + 160: REM PASSA NUMERO 
CASUALE AL GIOCO PER EVITARE SCHEMI FISSI 
280 CALL 25232: REM IL GIOCO!i! 

290 FOR I = 1 TO 50:S = ( PEEK ( - 16336) - PEEK ( - 16336 

)> * PEEK < - 16336) + ( PEEK ( - 16336) - PEEK < - 1 

6336)); NEXT 
300 GOSUB 970 

310 S = PEEK (771) + PEEK (772) * 256: TEXT : HOME : NORM 
AL : PRINT "HAI SALVATO ";S; 8 BAMBINI. 8 
320 POKE - 16368 0 

330 PRINT : PRINT*: PRINT "VUOI GIOCARE ANCORA? (S/N) 8 ;: GE 
T A$: PRINT A$ 

340 1F A» = "S" THEN 250 
350 IF A$ < > "N" THEN 310 
360 REM FINE DEL GIOCO 

370 HOME : POKE - 16304,0: POKE - 16301,0: VTAB 22: HTA8 

17: PRINT "CIAO!!! 8 
380 PRINT "3"; : GET Al: TEXT : HOME 
390 END 

400 REM DISEGNA LA TAVOLA DI GIOCO 

410 HCOLQR= 3 

420 REM DISEGNA L'EDIFICIO 

430 FOR I = 0 TO 24: HPLOT 1,16 TO 1.20: NEXT 

440 FOR I = 0 TO 24: HPLOT 1,180 TO 1,190: NEXT 

450 HCOLOR= 5 

460 FOR I = 0 TO 20: HPLOT 1,21 TO 1,179: NEXT 
470 HCOLOR= 4 

480 FOR I = 24 TO 179 STEP 4: HPLOT 0,1 TO 20,1 : NEXT 

490 FOR I = 21 TO 174 STEP 8: HPLOT 8,1 TO 8,1 + 3: HPLOT 7 

,1 TO 7,1 + 3: NEXT 

500 FOR 1 = 24 TO 183 STEP 8: HPLOT 13,1 TO 13,1 ♦ 3: HPLOT 
14,1 TO 14,1 + 3; NEXT 

510 FOR I = 28 TO 50: HPLOT 16,1 TO 22,1: NEXT 
520 HCQLOR= 3: HPLOT 16,51 TO 22,51 TO 22,52 TO 15,52 
530 HCOLOR= 5: DRAW 5 AT 29,16 
540 REM DISEGNA L'AMBULANZA 

550 HCOLOR= 6: FOR I = 150 TO 180: HPLOT 224,1 TO 270,1: NE 
XT * ’ 

560 FOR I = 265 TO 277; HPLOT 1,170 TO 1,180: NEXT 

570 HCOLOR= 5: FOR I = 234 TO 256: HPLOT I,162 TO 1,168: NE 
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L’alta risoluzione grafica del programma è evidente da 
queste immagini riprese col Palette della Polaroid. 



580 FOR ! = 154 TO I 7it HPLOT 242,] TO 248,1: NEXT 
590 HCOL0R= 7: HPLOT 278,188 TO 278,180 TO 279,180 TO 279,1 
88: HPLOT 284,149 TO 244,144 TO 248,144 TO 248,149 
400 HPLOT 242,148 TO 270.148 TO 270,149 TO 242,149 
410 HCOLOR= 0: FOR 1 = 155 TO 148: HPLOT 248,1 TO 248,1: NE 
XT 

420 HCOLOR= 5: FOR 1 = 144 TO 147: HPLOT 242,1 TO 248,1: NE 
XT 

HCQLOR= 3 
RESTARE 

FOR Y = 181 TO 183: 

READ XI X2 X^ X4 

HPLOT xfirWflT X2,Y: HPLOT X3,Y: HPLOT X4,Y 
NEXT 

HPLOT 228,184 TO 234,184 
HPLOT 266,184 TO 272,134 

DATA 226,236,264,274,226,236,264,274,227,235,265,273 
HC0LOR= 3 
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990 
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RETURN 

REM LO SPRUZZO 
HCOLOR= 3 

FOR 1 = 1 TO 279 STEP 9 
HPLOT 1,0 TO 279 - 1.191: NEXT 
FOR I =1 TO 191 STEP 9 
HPLOT 0,1 TO 279,191 - I: NEXT 
RETURN 

REM CANCELLA LE FIGURE CHE LASCIANO LA TAVOLA 
RESTORE : FOR I = 1 TO 12: READ X: NEXT 
POKE 230.64 
HCOLQR= 4 

DRAW 4 AT 28.20: DRAW 5 AT 29.16 
HCOLOR= 5: DRAW 5 AT 29,16: HCOLOR= 0 
FOR I = 1 TO 3: READ X: DRAW 2 AT X,70: NEXT 
DATA 120,160,200 
HCOLOR= 3 

FOR I = 1 TO 3: READ X: DRAW 6 AT X.168: NEXT 
DATA 157 92 27 

FOR I = Ì’tù’24: READ X,Y: HCOLOR= 3: DRAW 1 AT X,Y: H 
COLOR= 0: DRAW 1 AT X,Y: NEXT 
DATA 32,38.34,60.36,80,38,100 
DATA 42.120.46.140,56.156,66,136,74,118 
DATA 78,104,88,90.104.106,108,124.112,140 
DATA 122,156,135,138,140,118,155,104,1/0,120 
DATA 177,140,188,156,200,138,216,124,239,134 
HC0L0R= 0 

FOR I = 1 TO 3: READ X: DRAW 6 AT X.168: NEXT 
DATA 157,92,27 
RETURN ' ’ 
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Il meccanismo del gioco è semplice: bisogna salvare il 
bambino che si lancia dalia finestra per poi caricarlo sul- 
l'ambulanza... 
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...ma dopo un po’ il gioco si complica e mette a dura prova i 
riflessi anche dei più abili, perché i bambini che si lanciano 
dalla finestra diventano sempre più numerosi. 
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ci sono solo tre posizioni sul selciato 
della strada e naturalmente, per co¬ 
mandare lo spostamento da una all’al¬ 
tra, si devono utilizzare tre tasti. 

Con il tasto , (virgola) ci si sposta 
alla posizione di sinistra, il tasto / ci si 
sposta invece alla posizione di destra, 
mentre il tasto . (punto) ci riporta al 
centro. 

Alla fine del gioco si avrà la possibi¬ 
lità di rinnovare la propria licenza per 
un altro tentativo, altrimenti si può 
ammettere la propria sconfitta e ab¬ 
bandonare la nobile impresa. 

Caricamento 

Il programma ha tre parti principali: 
una in BASIC, una in linguaggio mac¬ 
china e una tavola delle figure. Prima 
di cominciare a giocare bisogna inseri¬ 
re tutte e tre le parti del programma 
nell’Apple. 

Per prima cosa è necessario digitare 
il programma in BASIC e salvarlo co¬ 
me POMPIERI. 

Dopo digitate la tavola delle figure 
battendo CALL-151 per andare in 
monitor e successivamente l’indirizzo 
(il numero più a sinistra), un segno di 
due punti (:) e di seguito i dati (le 
coppie di numeri esadecimali alla de¬ 
stra della lineetta). Per maggiori infor¬ 
mazioni consultate l’articolo "Per chi 
comincia" (pag . 117). 

Quando si è finito di introdurre la 
tavola delle figure bisogna salvarla con 
BSAVE INFERNO SHAPES, 
A$6000,L$288. 
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all'altezza 
dei tuoi problemi 



Acquistare un computer non è 
sufficiente a risolvere i tuoi pro¬ 
blemi. Devi acquistare quello più 
idoneo all'uso che devi farne. 
Computer Center: la più vasta 
gamma di computer per una 
scelta migliore • validissimo 
team di analisti programmatori a 
tua completa disposizione • tutte 
le periferiche e accessori • corsi 
di formazione professionale • 
Software House. 



VENDITA -ROMA 
Via Nizza, 48/50/52 
Tel. 844.84.18-86.38.39 
Via Nizza, 26/28/30/32 

Tel. 844.80.22-85.79.57 
ViaSoana(P.za Tuscolo), 24/26/28 

Tel. 759.15.44-759.27.90 

Via Prati Fiscali, 257/257a/257b 

Tel. 810.17.60 

ASSISTENZA TECNICA "ROMA 
Via Terni, 86/86a/86b 
Tel. 757.89.36 


Fate la stessa cosa con il terzo listato 
salvandolo con BSAVE INFERNO 
OBJ, A$6290,L$457. Solo a questo 
punto è possibile iniziare a giocare: 
basta battere RUN POMPIERI. 

Non dimenticate che un grave in¬ 
cendio è in corso e che voi, pompieri 
fin dall’infanzia , avete la possibilità di 
salvare molti piccoli ospiti dell’orfana- 
trofio. Ma attenzione: il Corpo dei Vi¬ 


gili del Fuoco è inflessibile e al terzo 
sbaglio vi ritirerà la licenza di pompie¬ 
re e tornerete stare sulla vostra noiosa 
scrivania. Forza con il telo allora. 


Questo programma è disponibile su 
dischetto. L’elenco, i prezzi e le 
modalità d’ordine di questo e degli altri 
dischetti disponibili sono riportati nella 
rubrica Disk Service. 
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La pubblicità su 
Applicando è informazione. 
Chi legge Applicando 
possiede un computer 
Apple o sta per cambiarlo 
con un Apple //e. 

Ocon un Apple//c. 

O con un Macintosh. 
Oppure non lo cambia 
affatto, se lo tiene stretto, 
ma vuol sapere dove, 
come e cosa fa 
veramente per lui. 

Una nuova marca 
di dischetti? 

Una nuova 
Software House? 

Una nuova stampante 
a basso prezzo? 

Per chi applica, 
è importante saperlo. 
Subito. 


STUDIOSFERA 
sas di Berardo & C. 
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lice - 20090 Segrate MI - fe 
lefono 02/7533939 - 7532151 
telex 321255 MACORM-C.F. e 
P. Iva 0701483015 7-C.C.IAA. 
Milano 1132820 - Tribunale 
Milano Reg. Soc. n. 64797 
Banca Popolare di 
M ilano Ag. 17 


Per la pubblicità 
shktiosfera sas 

telefono 02/ 7533939 - 7532151 
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Si potrebbe davvero definire una banda 
musicale, perché il nuovo pacchetto applicativo 
di software integrato della Lotus per Macintosh 
racchiude in sé ben sei programmi interattivi. Per 
dirigere l’orchestra, però, non occorre la 
bacchetta di Claudio Abbado, bensì il mouse... 



Apple Jazz Band 


f t e la Apple è riuscita a creare 

una macchina il cui utilizzo può 
essere appreso da chiunque in poco 
più di mezz’ora, noi siamo riusciti a 
estendere lo stesso concetto in questo 
software applicativo." Così Eric Be- 
dell, direttore marketing della Lotus 
Developement System, definisce Jazz, 
il nuovo programma per Macintosh 
della software house americana che, 
dopo aver conquistato i primi posti 
delle hit-parade del software più ven¬ 
duto per IBM e compatibili, (prima 
col Lotus 1—2—3 e poi con il più recen¬ 
te Symphony), ha portato il concetto 
di pacchetto integrato anche sull’ulti¬ 
mo computer di Steve Jobs. 

Jazz, che negli USA è già in vendita 


e in Italia sta per arrivare, distribuito 
da J. Soft e dalla Southern European 
Computer, unisce, come dice lo stesso 
Bedell, "in un unico programma una 
completezzza di funzioni e una veloci¬ 
tà d’apprendimento legate alla sempli¬ 
cità d’utilizzo propria del Macintosh". 
Comprende sei applicativi: spread¬ 
sheet, grafica, word processor, comu¬ 
nicazioni, data base, mailing e formati 
per il data base. 

Spreadsheet 

256 colonne per 8192 righe. Se non 
fosse per le altre particolarità del pro¬ 
gramma, basterebbe questo incredibi¬ 


le numero di righe per presentare il 
foglio di calcolo elettronico di Jazz. Il 
menù dell’applicazione, visibile nella 
figura I, comprende otto funzioni. 

La melina, il file e l’edit raccolgono 
le funzioni tipiche del Macintosh, da¬ 
gli accessori alle possibilità di editing e 
di gestione delle icone. La funzione 
Window permette di vedere quali altre 
finestre sono aperte contemporanea¬ 
mente a quella che si sta usando. Que¬ 
ste prime quattro funzioni sono comu¬ 
ni a tutte le sei applicazioni di Jazz. In 
ordine da destra a sinistra troviamo 
poi i menù di Range, Tools, Font e 
Style, più tipicamente definibili come 
funzioni di spreadsheet. 

Per esempio un click su Show attri- 
butes nel menù Style dirà le particola¬ 
rità di una cella, la funzione che con¬ 
tiene, se è protetta o meno o se il con¬ 
tenuto è giustifcato a sinistra o a de¬ 
stra. Esaminando i menù Range e 
Tools si potranno invece esaminare le 
opzioni che fanno di Jazz uno degli 
spreadsheet più potenti. Opzioni che 
portano a un box di dialogo con l’uten¬ 
te per le decisioni da prendere. 

Tutte le formule e le operazioni pos¬ 
sibili vengono scelte attraverso i diver¬ 
si menù. 

Per fare, ad esempio, una media dei 
valori di una colonna, basterà selezio¬ 
nare Average nel menù Tools e poi 
puntare la cella che rappresenterà 
quella operazione, indicando le celle 
estreme di calcolo. 

Grafica 

Sono possibili sei diversi formati per 
analizzare dati presi direttamente da 
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Figura 1. Lo speadsheet. 
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Figura 2. Il programma di grafica. 
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Figura 3. Il Word Processor. 


ricavati dallo spreadsheet, oppure per 
delle mailing list con il data base, o 
ancora per preparare testi da trasmet¬ 
tere via modem con il programma di 
comunicazioni. 

Da notare la possibilità di un cam¬ 
bio automatico dei dati nel documento 
ogniqualvolta viene cambiato qualco¬ 
sa nell’applicazione legata al testo. 


Comunicazioni 

Particolarità di questa applicazione 
(figura 4), come è del resto il concetto 
di base di Jazz, è la possibilità di inter¬ 
scambio con gli altri programmi. Una 
volta preparato un file di testo, con 
magari i dati di altre applicazioni, co¬ 
me abbiamo visto precedentemente, è 
possibile aprire un box di dialogo con 
il Macintosh per stabilire tutte le pre¬ 
messe necessarie per la trasmissione 
dati (velocità in baud, numero di bits, 
tipo di emulazione, ecc.). 

Come nella trasmissione, anche nel¬ 
la ricezione di informazioni è possibi¬ 
le, nello stesso identico modo, mani¬ 
polare i dati ricevuti e portarli nello 
spreadsheet, piuttosto che nel data ba¬ 
se, oppure rappresentarli grafica- 
mente. 


Data Base 

Preso da solo è un normalissimo da¬ 
ta base, con tutte le funzioni comuni 
agli analoghi programmi di gestione 
dati, con la possibilità di creare dei 
campi a discrezione dell’utente. Pre¬ 


uno o più spreadsheet di Jazz. L’appli¬ 
cazione permette di studiare gli anda¬ 
menti di una qualsiasi gestione con 
grafici (figura 2) a linee, barre, colon¬ 
ne, aree, oppure analizzando percen¬ 
tuali e crescite di un determinato cam¬ 
po. Riducendoli opportunamente sarà 
poi possibile visualizzare contempora- 
nemante sullo schermo tutti i diversi 
formati. Per particolari annotazioni è 
anche possibile aprire un piccolo box, 
per avere, per esempio, un colonnino 
di testo a fianco di un formato. 

Word processor 

È basato sui concetti di MacWrite 
raccogliendone tutte le opzioni. Non è 
un metodo di scrittura molto più sofi¬ 
sticato, ma funge da collegamento tra 
le altre applicazioni del programma 
(figura 3). Ad esempio, per unire testi 
e tabelle, magari con i relativi grafici 



Figura 4. Comunicazioni. 
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DISTRIBUISCE ALL'INGROSSO 
INTUITA ITALIA 


materiali pronti a magazzino 


Macintosh e 

tonto software in italiano o prezzi 
unici e irripetibili . 

Apple // 

Peniferiche . . 

Schede aggiuntive ... 
Compat i b i I i <made in italy > 
alcuni esempi : 

compatibile Ile 635.000 

disk-drive slim sokota 325.000 
doppio drive "duodisk" 865.000 
mouse completo 199.000 

stampante 80 col. I.V . 830.000 

super serial card e cavo 135.000 
doppio controller cord 66.000 
par allei card standard 66.000 
schedo 80 col.+ 64 k 166.000 
schedo 2-80 xCP/M 79 .000 
languoge cord 16 k 76.000 

Hord-disk 5 mb. 1.990.000 
Tutto con garanzia un anno 

Consegno immediato ovunque 

SOFTWARE x ftpple 
A prezzi estremamente bassi sono 
disponibili oltre 150 pakage di alto 
affidabilità, tutti in sorgente , con 
allegato il manuale completo d'uso. 


FLOPPV-DISK 

Tutta la gamma Uerbatim 
fverex e datalife) offerti 
a prezzi imba 11ibiIi anche 
per piccoli quantitativi 


listino completo e dettagliato può' 
essere richiesto inviando 3.000 
lire in francobolli oppure ordinando 
almeno un articolo in contrassegno 

Per dettagli tecnici urgenti : 
TELEFONARE allo 0587-616084 


MATERIALI FORNITI CON 
GARANZIA 

SODDISFATTI 0 RIMBORSATI 

con noi i tuoi investimenti 
sor anno sempre più protetti. 

I prezzi non comprendono I* i.v.o. 
Apple. Duodisk. Macintosh. sono 
morehi di opple computer ine. 


« File Edit WindouL’ Query 


[MEI 


* 


± 





Customer List 


m 


Name 


De Witt 


Goodrich 

Gordon 


one 
Mar ■ 
Mar: 






^irst Name 

Telephonej City | State 

fige 

[Nancy 

;S67 4322 !New York )NY 

33 

Thomas 

233 7600 Nlo Alto la 

53 

James 

344 9066 ÌPrattville NY 

71 

Patricia 

776 Q 112 btewark NI 

_ 


Customer Acci Form *************************** 

Enter Last Name 

|De Witt 

| So Ics Reps Use tbis Jazz 
se ree n form te viev andVer 

Enter First 

|Nancy 

| modify tbe castemer database 
' tt contains tbe inforreatina 
, yen need te seryice yonr 

Enter Telephone 

1 567 4322 

accennts via teìepbone 

Pìease be sere te fili in eacb 

Enter City 

|New York 

1 customer record comp/ete/y 


Figura 5. Il Data Base con il Forms aperto. 
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Sales Projections 


J 

1 A ! 

B 1 

C 


D 1 

E 

J_ 

Sales Forecast 


2 

Inflation- 


7 



4 


Jan 

Fet> 

Har 

5. 

Sales 

$121 

$136 


$152 


ò. 

COGS 

42 

34 


23 


il 

PxolCl!_ 

|lD.. 

JZ9. 

_ JLQ2._ 

Monthly Sales 

129 . . 



Midwest Sales R* 


Fm R Richards. Dist. 

Sales management he 
us with sales projecti 

tirsi quarter. 


9eG0S &CGTD0Q0O 


quotas will be s 
sday 


Coupon prom© 



Figura 6. Jazz in azione con alcuni strumenti aperti contemporaneamente. 


senta diverse possibilità di sort e di 
inserimento (figura 5). 

Forms 

Il programma Forms di Jazz (figura 
5) dà potenza e flessibilità al data base, 
consentendo di impostare una volta 
per tutte i formati di stampa desiderati 
per i propri dati. 

Permette di modificare il posiziona¬ 
mento dei campi, allineandoli in ma¬ 
niera differente o dando uno stile e un 
carattere diverso o, ancora, aggiun¬ 
gendo particolari annotazioni. Il tutto 
potrà poi essere stampato in tutte le 
maniere possibili oppure essere legato 
a un documento word processor. 


Osservazioni 

Per far "suonare" Jazz è necessario 
un Macintosh 512K con uno o, meglio, 
due drive. Di questi 512K, i sei stru¬ 
menti ne occupano circa la metà la¬ 
sciandone 256 liberi per i documenti. 
Il programma è stato impostato su una 
particolare lettura da disco delle varie 
applicazioni per aumentare la velocità 
di utilizzo. 

Ogni volta che viene detto a Jazz di 
fare qualcosa, il programma caricherà 
quella funzione e la metterà in memo¬ 
ria, così la volta successiva che si ri¬ 
chiederà la stessa opzione non sarà più 
necessario caricarla da disco. 

Mario Magnani 


74 






























































































Computer Center guida Genova nell’informatica 

con i suoi ComputerShops 


Apple a Genova é MEippkZ Computer 

computer cantar 

vendita-assistenza -software -corsi 


ViaS.Vincenzo 107-109r. tel.010/581474 Genova 
Via Storace 4 r. tei.010/454107 Ge.$ampierdarena 
Via S.Vincenzo 129r. tel.010/581815 Genova 
Corso Gastaldi 77r. tel.010/300797 Genova 
C.soB.Aires 125 tel.0185/314142 Lavagna 

















O SUPER VISION III. Monitorcolori 12”, scher¬ 
mo antiriflesso. Possibilità di funzionamento 
in text mode su fosfori verde, ambra, bianco rever¬ 
se, selezionabilidall’utente. Risoluzione640x262. 

O VISION PAL. Monitorcolori 12”, schermo an¬ 
tiriflesso. Possibilità di funzionamento in text 
mode su fosfori verde, ambra, selezionabili dal¬ 
l’utente. Ingresso videocomposito. Lowcost. 

O VISION PC. Monitorcolori 12”, schermo anti¬ 
riflesso. Appositamente progettato per IBM 
PC. Risoluzione 640x262. 

O RGB VISION II. Monitor colori 12”. Risolu¬ 
zione 510x262. Ingresso RGB. Filtro smoked 
in dotazione. 

O KX 1201 - E. Monitor fosfori verdi 12”, scher¬ 
mo antiriflesso. Ingresso videocomposito. 
Opzionale piedestallo di basculaggio KTS-1 con 


orologio LCD incorporato (rif. 16). 

O KX 1212- E. Monitor fosfori verdi 12, schermo 
antiriflesso, compatibile con IBM PC. Opzio¬ 
nale piedestallo di basculaggio KTS-2 con orolo¬ 
gio LCD incorporato (rif. 17). 

O KP910. Stampante a matrice 9x9,156 colon¬ 
ne a 140 cps bidirezionali ottimizzati, trasci¬ 
namento trattori e frizione, grafica. Elevata silen¬ 
zio sità. Near letterquality. Interfaccia Centronics. 
Disponibilefirmwarepercompatibilitàcon IBM PC. 
Capacità stampa su originale + 3 copie. 

Opzioni: (rif. 9) e (rif. 12). 

O KP- 810. Come KP910. Stampa su 80 colon¬ 
ne. Capacità stampa: originale -I- 2 copie. 

O KIF4308. Buffer di memoria esterno da64K 
bytes espandibili fino a 256K bytes. 

Può pilotare due stampanti. 


€ |k KFD 510. Minifloppy 5” 1/4 da 140K byte 
ir slim line. Per Apple computers e compatibili 
Apple. 

O KIF 3600. Interfaccia colore grafica per IBM 
PC. Da utilizzare con Vision PC (rif. 3) e super 
Vision III (rif. 1). 

i KIF 3502. Interfaccia seriale RS 232 C. 




© KIF 3210 S/64. Espansione di memoria da 
64K a 256K bytes per IBM PC completa di 
interfaccia seriale RS 232 C. 

© RGB II B. Interfaccia RGB per computer 
Applell plus e Applell e, per i monitor(rif. 1) e 
(rif. 4). 

© KIF3700. Interfaccia monocromatica e stam- 
panteperlBM PC. Dautilizzarecon KX1212-E 
(rif. 6) e KP 910 o 810 (rif. 7) e (rif. 8). 
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delle periferiche TAXAN. 


Eledra - Sede 

Milano - Viale Elvezia, 18 

Tel. (02) 34.97.51 (24 linee)-Telex332.332 ELEDRA I 


Eledra- Filiali 
Torino 

Tel. (011 ) 30.99.111 - Telex 210.632 ELEDAT I 

Padova 

Tel. (049) 65.54.88 - Telex 430.444 ELEDAP I 

Bologna 

Tel. (051) 30.77.81 - Telex 213.406 ELEDAB I 

Roma 

Tel. (06) 81.10.151 - Telex 612.051 ELEDAR I 

Bari 

Tel. (080) 81.43.95 


Partner distributivi 

Genova - Informatica Service 
Tel. (010) 56.43.35 

Udine - Asem s.p.a. 

Tel. (0432) 96.10.14 - Telex 450.608 ASEM I 

eledra® 

DISTRIBUTORE PRODOTTI ELETTRONICI N I 








i 


TUTTI 
I MESI 
IN 

EDICOLA 


Per imparare e divertirsi! 


Hai un Commodore 64 o un VIC 20? 

RadioELETTRONICA&COMPUTER 
proponetutti i mesi i migliori 
programmi che una rivista 
possa pubblicare. Per esempio: 

Budget familiare, Gestione 
del magazzino, Slot Machine, 
Generatoredi suoni musicali, 
Labirinto, Generatore di onde quadre, 
Data Base, Gestione Cocktails... 


Elettronica 

&Comnuter 

■“■"■■■■■■■■■■■■■■il 




Hai uno Spectrum? RadioELETTRONICA 
&COMPUTER propone tutti i mesi 
fantastici programmi. Ecco qualche 
esempio: Calcolo combinatorio, Cianago 
(corsa di cavalli in alta risoluzione 
grafica), Data Base, Superquaterna, 
Disegnaschemi, I quiz per la patente, 
Insiemistica e disequazioni... 

Giochi, programmi 
gestionali, utility per 
programmare, novità, 
articoli d'interesse 
enerale per l'utilizzo in 
amiglia, in ufficio, a 
scuola, nel tempo libero, 
degli home computer più 
diffusi in Italia. E tanti 
regali allegati a ogni 
copia in vendita nelle 
edicole: cassette con 
programmi, 
portacassette, etichette 
autoadesive per 
cassette... E fantastici 
concorsi con migliaia di 
premi in palio. 


13 AL TOTOCALCIO 

COL CALCOLO COMBINATORIO 


INHRFACCE 

TUTTO AUTOMATICO 
CON VIC S COMMODORI 


^calcio 

4- UO *' 


SI IL PROGRAMMA NON SI t ARIL A 




PRIU 1983 - l. 3.500 


SCUOIA/VK 70 S H< TRUM 

INSIEMISTICA E DISEQUAZIONI 

UMir io commi > 1^ ,V| 44 

GESTIRE IL MAGAZZINO 

GRAHGA 

tutte le curve CON Vie 20 

GAM»SV»C70 C64 sm IRUM 

VINCI ALLA SLOT MACNINE 
SEI UN BOMBARDIERE ATOMICI 


no 


E' una rivista 

pubblicata da 

Editronica, 

leader 

nell'editoria 

elettronica. 



























Ecco un breve ma efficace programma per trasformare 
l’Apple in un fedele e preciso timer che avverte del 
passare del tempo, e al momento giusto... 


DOS 3.3 "#111 
ProDOS +1111 

apple .//t 4mi 

APPLE A'c +IIL 


Quando l’ora scocca 


U sare l’Apple anche nella vita do¬ 
mestica e nella gestione degli 
hobbies più tradizionali è certamente 
una delle cose che vi eravate prefissi 
prima di acquistare il computer. Que¬ 
sto tipo di progetti, nati nella vostra 
"era pre-computer", sono poi rimasti 
solo delle buone intenzioni perché con 
l’arrivo dell’Apple avete poi scoperto 
l’affascinate mondo del computer e vi 
siete semplicemente dimenticati di 
tutti i buoni propositi che ne giustifica¬ 
vano l’acquisto. 

Per fare un esempio: siete tra quegli 
appassionati di fotografia che hanno 
speso dei veri capitali in attrezzature 
per lo sviluppo delle pellicole e che, 
con l’arrivo dell’Apple, hanno quasi 
dimenticato il loro vecchio hobby limi¬ 
tandosi a portare in un buon laborato¬ 
rio le istantanee scattate durante l’ulti¬ 
ma vacanza o nel corso dell’ultimo fine 
settimana? 

In questo caso, vi farà piacere saper¬ 
lo, appartenete a pieno diritto alla 
schiera dei più convinti computeristi 
che, tra il lavoro sulla tastiera e la let¬ 
tura di Applicando non trovano più il 
tempo per vecchi amori ormai esplora¬ 
ti a fondo. 

Per far tacere il vostro piccolo senso 
di colpa vi proponiamo allora un pro¬ 
gramma che potrebbe rivelarsi vera¬ 
mente utile sia per il vostro hobby del¬ 
la fotografia che per un mucchio di 
altri piccoli problemi quotidiani e do¬ 
mestici: si tratta di un contasecondi 
programmabile che, nemmeno a dirlo, 
abbiamo chiamato con il fantasioso 
nome di TIMER. 

Per evitare equivoci chiariamo subi¬ 
to che TIMER non è in grado di accen¬ 
dere e spegnere un apparecchio dopo 
un tempo prefissato ma è semplice- 
mente un programma che vi permette¬ 
rà di ricordare dopo un tempo stabilito 
da voi stessi di compiere una data ope¬ 
razione, anche di spegnere il fuoco 


sotto le uova messe a bollire e poi di¬ 
menticate ascoltando della buona mu¬ 
sica. 

Il funzionamento 

Il programma è stato studiato, come 
sempre, per essere il più versatile pos¬ 
sibile. Nel caso particolare è stato pre¬ 
so in considerazione un appassionato 
di fotografia che avesse la necessità di 
effettuare una serie di operazioni se- 


quanziali con tempi ben precisi da ri¬ 
spettare per ogni operazione. TIMER 
vi consente di tasformare il vostro Ap¬ 
ple in un fedele e preciso contasecondi 
programmabile che vi avverte del tra¬ 
scorrere del temp'o con un segnale acu¬ 
stico. 

Potete programmare con TIMER 
fino a 25 intervalli di tempo sequenzia¬ 
li di durata diversa tra loro e sfruttare 
quindi il vostro Apple come contase¬ 
condi anche per una complessa serie di 





operazioni consecutive (come è ap¬ 
punto il caso del lavoro in camera 
oscura per lo sviluppo e la stampa del¬ 
le foto). 

Dovrete introdurre la durata di cia¬ 
scun periodo sotto forma di minuti pri¬ 
mi e frazioni decimali. Ai fini della 
temporizzazione effettiva TIMER ar¬ 
rotonda al secondo pari più vicino ed è 
quindi inutile che introduciate tempi 
con più di due cifre decimali. 

Ogni intervallo di tempo program¬ 


mato viene contato alla rovescia con 
un segnale acustico che scandisce i se¬ 
condi e un cicalino finale che avverte 
della sua fine. Sullo schermo invece il 
passare del tempo viene evidenziato 
con un orologio analogico in alta riso¬ 
luzione e un orologio digitale in modo 
testo che segnano il conto alla rovescia 
indicando quanto manca alla fine del¬ 
l’attuale intervallo di tempo imposta¬ 
to. 

Alla fine di ogni intervallo, dopo il 


suono del cicalino che vi avverte della 
sua fine, dovete premere RETURN 
per passare al conto alla rovescia del 
successivo periodo che avete program¬ 
mato. Completata la sequenza di in¬ 
tervalli di tempo impostati da voi po¬ 
trete poi ricominciare daccapo o ride¬ 
finire uno dei periodi o ancora modifi¬ 
care l’intera sequenza dei 25 intervalli 
di tempo sequanziali che avete a di¬ 
sposizione. 

TIMER si rivela quindi veramente 


Listato 


50 REM ************************ 

52 REM * TIMER * 

54 REM * 01 C.J. THOMPSON * 

56 REM * COPYRIGHT <0 1985 * 

58 REM * BY APPLICANDO & * 

60 REM * MI CROSPARC' , INC. * 

62 REM ************************ 

64 REM RICHIEDE 16K DI MEMORIA 
87 PRINT DVCLOSE TIMER TXT* 

100 REM TIMER 

HO REM (0 1985 BY APPLICANDO 

120 REM 4 CJ THOMPSON 

140 REM QUESTO PROGRAMMA PR0WEDE AL 

160 REM CONTEGGIO ALLA ROVESCIA ANALOGICO E 

180 REM DIGITALE DI UNA SERIE ARBITRARIA 

200 REM DI PERIODI DI 

220 REM TEMPO. E' UTILE PER IL 

240 REM TRATTAMENTO DI NEGATIVI 

260 REM E STAMPE FOTOGRAFICHE E 

280 REM PER FARE LE U0MA SODE ! !! 

300 REM INI 21ALI ZZA LE VARIABILI 
320 A = 3: REM LA LANCETTA DEI MINUTI E VERDE 

340 B = 5: REM LA LANCETTA DEI SECONDI E ROSSA 

360 TC = 200: REM CORREZIONE TEMPORIZZAZIONE (Ma6GI0RE=P1U 
■ LENTO) 

380 DIM TI<25),TS<25): REM IL NUMERO MASSIMO DEI PERIODI 
E' 25 

400 K = 3: REM NUMERO DEI SEGNALI DI CICALINO 
420 TA = 25: REM LUNGHEZZA DI OGNI SEGNALE 
480 GOTO 1000: REM SALTA SOPRA LE SUBROUTINE 
500 REM SUBROUTINE TEMPORIZZATORE 
510 GOSUB 640 

520 FOR TI = TS T0 0 STEP - 1 

530 H = 19: REM LETTURA DIGITALE TABULAZIONE NOMINALE 

540 IF TI < = 99 THEN H = H + 1 

550 IF TI = 99 THEN GOSUB 640 

560 IF TI < = 9 THEN H = H + 2 

570 IF TI = 9 THEN GOSUB 640 

580 VTAB 22: HTAB H: GOSUB 740: GOSUB 890 

590 PRINT TIs" SECONDI ALLA FINE* 

600 REM CORREZIONE TEMPORIZZAZIONE 
610 FOR N = 1 T0 TC: NEXT N 
620 NEXT TI 
630 RETURN 

640 HOME : VTAB 22: PRINT 'PASSO ** : ST ; * : ';T: 8 MIN.*: RETUR 
N 

650 REM CONTROLLO ALLARME 
660 FOR N = 1 TO K 
670 FOR J = 1 TO TA 
680 GOSUB 720 
690 NEXT J 

700 FOR L = 1 TO 100: NEXT L: REM PAUSA 
710 NEXT N: RETURN 

720 S = - !6336:X = PEEK <S) - PEEK (S) - PEEK <S) - P 
EEK <S) - PEEK <S) - PEEK (S) - PEEK (S) * PEEK (S) 
- PEEK <S) - PEEK (S) - PEEK (S) - PEEK (S) - PEE 
K (S) - PEEK (S) - PEEK <S>: RETURN 
730 HOME : VTAB 22: RETURN 
740 REM GRAFICA DELL'OROLOGIO 


750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

1000 

1020 

1040 

1050 

1060 

1080 


1100 


1120 

1140 

1160 

1180 

1200 

1220 

1240 

1260 

1280 

1300 

1320 


1340 

1360 

1380 

1400 

1420 

1440 

1460 

1480 

1500 

1520 


HGR ifW = INT (TI / 60) :TH = TI 
TH = TH - 60: IF TH ) 60 GOTO 760 
SC = TH 


X = 139 :Y = 79:R = 60:RS = 75 
AM = MN * .5236 
AS = SC * .1047 
XM = R * SIN (AM) 

YM = R * COS (tfl) 

XS = RS * SIN (AS) 

YS = RS * COS (AS) 

HC0LQR= A: HPLOT X.Y TO X + XM.Y - YM 
HC0L0R= 8: HPLOT X,Y TO X * XS.Y - YS 
RETURN 

REM SCANSIONE SECONDI 

S = - 14334:X = PEEK (S) - PEEK (S) - PEEK (S): RE7 
URN 

REM FINISCE FINO ALLA RIPETIZIONE 

TEXT : HOME : VTAB 10: HTAB 5: PRINT "ALLA PROSSIM VOL 

TA. VTAB 22: END 

REM FINE DELLE SUBROUTINE 
REM PROGRAHMA PRINCIPALE 
TEXT : CALL - 936 

•VTAB 2: HTAB 9:'PRINT "»«*** TIMER **»**■ 

VTAB 23: PRINT "<0 1985 BY APPLICANDO 4 HICROSPARC,IN 
C," 


POKE 34.3: VTAB 10 

PRINT ‘QUESTO PROGAMMA CONTERÀ' ALLA ROVESCIA" : PRINT 

: PRINT "FINO A 25 PERIODI PRESTABILITI.": PRINT : INP 

UT "INTRODUCI IL NUMERO DI INTERVALLI.. ":NIX 

HOME ; VTAB 5: PRINT "ADESSO INTRODUCI LA LUNGHEZZA DI 

": PRINT : PRINT "OGNI PERIODO IN MINUTI DECIMALI": PR 

INT "(ES. 3.25)": PRINT 

VTAB 9 


FOR 1 = 1 T0 NIX: PRINT : PRINT "PERIODO * : I ; " : 1 

NPUT TKI) 1 1 1 

TS(1) = INT (TI(I) » 40): NEXT : REM ARROTONDA AL S 
EC0N00 PIU' VICINO 

VTAB 20: PRINT "*« «MISSIONI GIUSTE (S)":: HTAB 27: 
INPUT Ai: IF LEN (A») = 0 THEN A* = "S* 

IF LEFTi (Ai,l) < ) "S" THEN 1000 
HOME 




vino i J. rftim rtf\ LUrurlLlHKt n I tPIrUNl ttnKt . r 

: PRINT "IL PRIMO PASSO PREMI RETURN. ":: GET Ai 
FOR ST = 1 TO NIX:T = ( INT (TI (ST) * 1Ó0 * .5» / 100 
:TS = TS(ST) 

GOSUB 500: GOSUB 450: GOSUB 730 
IF ST = NIX THEN GOTO 1340 

VTAB 22: PRINT "PER COMINCIARE A TEMPORI ZZARE IL PERIO 
DO": PRINT : PRINT "SEGUENTE PREMI IL TASTO RETURN 
: GET Ai 
NEXT 

TEXT : HOME : VTAB 5: PRINT "«* SCEGLI IL NUMERO APPR 
0PRIAT0: " 

VTAB B: HTAB 5: PRINT "(1) RI1NIZIARE IL TEMPORIZZATOR 
E" 

VTAB 10: HTAB 5: PRINT "(2) SCEGLIERE I NUOVI PARAMETR 


VTAB 12: HTAB 5: PRINT "(3) FINIRE " 

VTAB 15: HTAB 10: INPUT "SCEGLI : ":AÌ 
IF lEN (Ai) = 0 THEN SEX = 1: GOTO 1520 
IF 'VAL (Ai) < 1 OR VAL (Ai) > 3 THEN 1340 
SEX = 'VAL (Al) 

ON SEX GOTO 1240,1000,910 
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utile per le vostre esigenze di fotografi 
dilettanti in quanto vi consente di sta¬ 
bilire una sequenza di lavoro perfetta¬ 
mente adatta alle vostre esigenze (e 
all’attrezzatura della vostra camera 
oscura) permettendovi di ripetere al¬ 
l’infinito, con il solo uso del tasto RE¬ 
TURN, il ciclo che avete laboriosa¬ 
mente messo a punto dopo molte pro¬ 
ve. Anche l’amante della cucina più 
complessa e elaborata trova in TI¬ 
MER un alleato prezioso così come, 
tanto per dare un’idea della sua versa¬ 
tilità, il distratto o il professionista 
molto impegnato può usare TIMER 
per trasformare il suo Apple sulla scri¬ 
vania in una èfficentissima segretaria 
che lo avverta per tempo degli impegni 
programati per la giornata. 

Struttura 

Questo programma è strutturato 
con tutte le subroutine al principio. A 
partire dalla linea 300 vengono invece 
inizializzate le variabili: le linee 320 e 
340 contengono i codici dei colori delle 
lancette dell’orologio analogico, la li¬ 
nea 360 contiene la variabile TC di 
regolazione del loop FOR-NEXT 
che misura il trascorrere di un secondo 
e la linea 380 il numero massimo di 25 
periodi di tempo programmabili. Le 
linee 400 e 420 contengono invece la 
definizione dei parametri che regola¬ 
no il suono dei cicalini al trascorrere 
dei secondi e alla fine di ogni singolo 
periodo programmato. 

Il tempo "contato" da TIMER tra un 
secondo e l’altro è la somma del tempo 
di esecuzione del loop alla linea 610 
(dove interviene la variabile TC) e il 
tempo di elaborazione impiegato per 
"aggiornare" la grafica dell’orologio 
analogico e di quello digitale sullo 
schermo. Dovrete quindi agire sul va¬ 


lore di TC per "accordare" il vostro 
modello di Apple con un orologio 
campione. 

In pratica, bassi valori di TC (che 
inizialmente ha il valore 200) accelera¬ 
no il contasecondi, mentre valori più 
elevati lo rallentano. Con un paio di 
semplici prove potrete regolare il vo¬ 
stro contasecondi con un buon orolo¬ 
gio da polso dotato di lancetta dei se¬ 
condi. Per questa regolazione vi consi¬ 
gliamo di scegliere periodi di tempo 
piuttosto lunghi (almeno 15 minuti per 
volta) in modo da potere valutare con 
un certa accuratezza lo scarto esistente 
tra l’orologio campione e quello rea¬ 
lizzato sul vostro Apple tramite TI¬ 
MER. 

Le variabili K e TA controllano il 
numero e la durata dei segnali sonori 
alla fine di ogni periodo programma¬ 
to. Anche in questo caso potete "pers¬ 
onalizzare" il segnale secondo i vostri 
gusti: poche prove vi permetteranno 
di raggiungere il risultato che preferi¬ 
te, sia come tono che come durata del 
suono d’avvertimento della fine di uno 
dei periodi programmati. 

Anche sui singoli scatti acustici che 
scandiscono il passare dei secondi po¬ 
tete intervenire per modificarne il suo¬ 
no o, addirittura, per sopprimerli. Vi 
basta soltanto sapere che sono genera¬ 
ti nella subroutine alla linea 890. 

Un altro ovvio perfezionamento di 
TIMER è costituito dalla creazione di 
una grafica migliore e più elegante per 
l’orologio analogico che appare sullo 
schermo. Vi lasciamo il piacere di 
creare a piacimento il vostro quadran¬ 
te avvertendovi soltanto di modificare 
la subroutine HI-RES alla linea 740 
per evitare che il vostro quadrante 
venga cancellato ad ogni movimento 
della lancetta dei secondi. 

I più esigenti possono invece ag¬ 


giungere una subroutine che consenta 
di inserire il tempo in ore, minuti e 
secondi sessagesimali per ogni periodo 
programmato. Per aiutarvi in questo 
compito vi facciamo notare che alla 
linea 1140 vengono introdotti i periodi 
di tempo sequenziali con la variabile 
TI che viene poi arrotondata alla linea 
1160. Basterà quindi creare una su¬ 
broutine che trsformi in decimali gli 
INPUT dati in sessagesimali e rimandi 
poi alla linea 1160 per l’arrotonda¬ 
mento. In questo caso, naturalmente, 
una seconda subroutine deve essere 
creata per la scrittura sul video delle 
cifre dell’orologio digitale. Infatti, per 
coerenza con il modo di inserire i tem¬ 
pi, il programma deve riconvertire il 
tempo in minuti e secondi sessagesi¬ 
mali prima di "inviarlo" alla linea 590 
per la scrittura su video dei secondi 
che mancano alla fine del periodo pro¬ 
grammato. 

TIMER infine si rivelerà un program¬ 
ma divertente per tutti coloro che vo¬ 
gliono imparare qualche "trucco" sulla 
programmazione. E infatti un pro¬ 
gramma breve e facile da capire e ana¬ 
lizzare ma nel contempo è anche un 
programma dove compaiono tutte le 
principali fuzioni dell’Applesoft, in¬ 
cluse quelle per la grafica in alta risolu¬ 
zione e per la creazione dei suoni. 

In ogni caso, per i fotografi dilettan¬ 
ti, per i cuochi più raffinati, per i più 
impegnati professionisti o per gli in¬ 
guaribili distratti, TIMER si rivelerà 
utile consentendo al vostro Apple di 
segnare anche il tempo. 


Questo programma è disponibile su 
dischetto. L’elenco, i prezzi e le 
modalità d’ordine di questo e degli altri 
dischetti disponibili sono riportati nella 
rubrica Disk Service. 
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benzina. E poiché non c’è limite alla 
fantasia e all’inventiva, consultando 
questa guida scoprirai utilizzi im¬ 
pensati per il tuo personal. Utilizzi 
che ti permetteranno nel lavoro, nel 
tempo libero, nel gioco o nello stu¬ 
dio, di essere sempre il più aggior¬ 
nato, il più organizzato, il più soddi¬ 
sfatto... 

Sei interessato ai programmi 
per Macintosh? 

In questa nuovissima edizione delle 
Pagine del Software per Apple trovi 
elencati, con una approfondita de¬ 
scrizione, tutti i programmi disponi¬ 
bili in Italia. 


Stai per acquistare 
un personal computer Apple? 

Vorrai sapere che cosa puoi farci. 
Questo volume è un aiuto indispen¬ 
sabile, una guida ragionata e com¬ 
pleta di tutti i programmi disponibili 
in Italia. Prima di fare il tuo acquisto 
non puoi non consultarlo, perché 
solo se avrai a disposizione i pro¬ 
grammi che ti interessano la scelta 
non ti lascerà deluso. 

Hai appena acquistato 
un personal computer Apple? 

Senza questa raccolta di program- 


per te 

mi non potrai mai sapere quali e 
quanti utilizzi potrai farne. 

Possiedi già da tempo 
un personal computer Apple? 

Allora non c’è bisogno di dirti quan¬ 
to può essere prezioso questo libro: 
sai già che il tuo computer, senza 
programmi, è come un’auto senza 










Un buon programma per disegnare: ma non solo per bambini 
che vogliono giocare. Il concetto dei potenti e costosi programmi 
di CAD CAM, alla portata dell’Apple, ne fa uno strumento quasi 

professionale. 


DOS 3.3 #HI 
ProDOS -#HI 
APPLE .//e -#111 
APPLE //c #111 
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Designer 


A prima vista Designer potrebbe 
sembrare solo un banale pro¬ 
gramma di disegno in alta risoluzione. 
Invece al suo interno si nasconde il 
potenziale per un impiego nell’area 
del Computer Aided Design (CAD), 
la progettazione assistita dal compu¬ 
ter. Il CAD è una tecnica importante 
per il design quanto lo è per la scrittura 
l’elaborazione dei testi. Presenta gli 
stessi vantaggi, come la facilità di ap¬ 
portare cambiamenti e la possibilità di 
utilizzare elementi grafici ripetitivi 
senza doverli ridefinire completamen¬ 
te ogni volta. Naturalmente questo 
programma non può competere con i 
sistemi CAD professionali che si uti¬ 
lizzano su macchine più potenti, ma 
resterete sorpresi vedendo quanto 
permetta di fare con il vostro Apple. 

Applicazioni 

Se si costruiscono figure che rappre¬ 
sentino scrivanie, sedie, tavoli, divani, 
letti e altri elementi dell’arredo, Desi¬ 
gner permette di variarne la disposi¬ 
zione su una pianta assegnata, in mo¬ 
do da valutare la migliore disposizione 
dei "pezzi" esistenti. Molto utile per 
architetti e arredatori serve anche per 
coloro che vogliono fare da sé. 
Analogamente creando una tavola 


grafica che rappresenti piante e arredi 
esterni potrete trovare la soluzione 
migliore per il vostro giardino o per la 
terrazza di casa. 

Per i progettisti di impianti idraulici 
ed elettrici invece basta costruire i sim¬ 
boli tecnici delle varie utenze e reti per 
avere a disposizione lo strumento 
ideale per la progettazione di reti an¬ 
che complesse. 

Designer può anche servirvi per gio¬ 
care con la fisionomia dei volti: una 
tavola grafica con nasi, occhi, orecchie 
e altri particolari di viso da combinare 
con Designer per creare fisionomie 
sempre nuove e buffe giocando a fare i 
detectives. Analogamente si può 
sfruttare la potenzialità di questo pro¬ 
gramma per la grafica e i caratteri in 
alta risoluzione. 

In definitiva la versatilità e la facilità 
d’uso di Designer vi consente di con¬ 
centrarvi sulla parte creativa del dise¬ 
gno eliminando le complesse e noiose 
manovre tipiche di altri programmi. 

Come funziona 

Designer permette di disegnare e 
combinare fra loro le figure di una ta¬ 
vola delle figure sullo schermo Hi- 
Res. La versatilità del programma sta 
nel fatto che lo si può usare con qual- 
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siasi tavola delle figure a disposizione. 
Per citare un esempio classico suppo¬ 
niamo di creare una tavola delle figure 
comprendente vari componenti elet¬ 
tronici e porte. In tal caso utilizzando 
tale tavola con il Designer si possono 
creare e perfezionare schemi elettro¬ 
nici. Inoltre, se dovete progettare di¬ 
versi circuiti utilizzanti lo stesso tipo di 
alimentatore, potete fare uno schema 
di quella sezione del circuito, salvarlo 
su dischetto, poi riportarlo a formare 
la base di ciascuno degli schemi defini¬ 
tivi di circuito. Creando una tavola 
con gli elementi desiderati diventa 
molto semplice qualsiasi tipo di pro¬ 
gettazione che richieda elementi grafi¬ 
ci standardizzabili. 

Queste tavole delle figure specializ¬ 
zate possono essere create rapidamen¬ 
te e facilmente usando il programma 
"Apple illustratore" che abbiamo già 
presentato nel numero scorso. Desi¬ 
gner ha però una sua tavola grafica che 
comprende gli elementi geometrici più 
comuni come quadrati, triangoli, cir¬ 
conferenze e rettangoli nelle varie di¬ 
mensioni che possono servire. 


Sommario 
dei controlli 

La maggior parte delle funzioni di 
Designer può essere usata premendo il 
tasto corrispondente alla prima lettera 
del nome della funzione. Dato che le 
funzioni non sono poche era un’impre¬ 
sa escogitare per ciascuna funzione un 
nome che indicasse quello che la fun¬ 
zione fa e al tempo stesso avesse un’i¬ 
niziale diversa da tutte le altre. Si do¬ 
veva anche cercare di non utilizzare 
tasti immediatamente adiacenti ai tasti 
I, J, K e , (tasto virgola), che corri¬ 
spondono nella tastiera americana ai 
tasti I, J, K, M. Infatti questi tasti ven¬ 
gono normalmente azionati senza 
guardare la tastiera, e questo rende 
facile la pressione accidentale di un 
tasto adiacente. In realtà il tasto N 
viene usato in Designer ma fortunata- 
mene i risultati della sua pressione non 
possono provocare veri danni se que¬ 
sta è avvenuta accidentalmente. 

Le videate che pubblichiamo qui a 
destra, mostrano un sommario dei 
controlli e delle loro funzioni. 

Oltre a utilizzare i tasti N e 
CTRL—N per far scorrere su video la 
tavola delle figure, si può anche sce¬ 
gliere una figura battendone il nume¬ 
ro. Il programma si attende un nume¬ 
ro di tre cifre, e quindi per selezionare 
la figura numero 5 si deve digitare 005. 


CON QUESTO PROGRAMMA PUOI DISEGNARE 
FIGURE SULLO SCHERMO IN HI-RES, DA UTI¬ 
LIZZARE NELLE TAUOLE DELLE FIGURE. 

C'E' ANCHE UNA TAUOLA DELLE FIGURE 
STANDARD CHIAMATA ' T AUOLA/PROGRAMMA 1 
COMPRENDENTE UARI DISEGNI CHE PUOI USARE 


-CONTROLLI PER IL DISEGNO- 


D -DISEGNA FIGURA 
X -CANCELLA FIGURA 
R -AUMENTA ROTAZIONE 
CTRL-R -DIMINUISCE ROTAZIONE 
S -AUMENTA SCALA 
CTRL—S -DIMINUISCE SCALA 
C -CAMBIA COLORE 

^ATTENZIONE ! ! CTRL-C FERMA IL PROGRAMMA! 

N -MOSTRA LA FIGURA SEGUENTE 

UTRL-N -MOSTRA LA FIGURA PRECEDENTE 

(OPPURE BATTI IL NUMERO DELLA FIGURA) 

LTRL-E -COLORA L'INTERO SCHERMO 

1 M 1 PER ALTRO, CESO PER TORNARE) 


I 

J 

K 

M 

CTRL-I 
CTRL-J 
CTRL-K 
CTRL-M 


P D L < O ) - 

P D L < 1 ) - 

PULSANTE- 


-CONTROLLI SPOSTAMENTO- 

CONTROLLO DA TASTIERA : 

- FIGURA IN SU DI UN DOT 

- FIGURA A SINISTRA DI UN DOT 

- FIGURA A DESTRA DI UN DOT 

- FIGURA IN GIU' DI UN DOT 

- FIGURA IN SU DI 8 DOT 

- FIGURA A SINISTRA DI 8 DOT 

- FIGURA A DESTRA DI 8 DOT 

- FIGURA IN GIU' DI 8 DOT 

- CONTROLLO CON LE PADDLE : 

■ SPOSTAMENTO IN ORIZZONTALE 

- SPOSTAMENTO IN VERTICALE 
• DISEGNA LA FIGURA 


<'M‘ PER ALTRO, CESO PER TORNARE) 


-ALTRI CONTROLL I- 


-COMMUTA FRA TUTTO SCHERMO E 
SCHERMO MISTO 

-COMMUTA FRA TAUOLA FIGURE PRO- 
GRAMMA E TAUOLA FIGURE UTENTE 
UTRL-T -CARICA UN'ALTRA TAUOLA UTENTE 
-AZIONE= COMMUTA FRA CONTROLLO 
PADDLE E CONTROLLO TASTIERA 
-SALVA SU DISCO LO SCHERMO HI-RES 
-CARICA UNA FIGURA DAL DISCO 
-CARICA UN FILE UETTORI AL POSTO 
DELLA TAUOLA FIGURE IN USO 
L-TRL-D -CATALOGO DEL DISCO 

-UISUALIZZA QUESTE ISTRUZIONI 
-FINE PROGRAMMA 


A 


11 


< ESC > 


ClttSUJHtt DELLE FIGURE PUÒ' ESSERE 
UfgTH LUME 'PENNELLO' E SPOSTATA PER 

!H M £J!f,-y N f!,JM PERFIC:IE ' 0 SOVRAPPOSTA 
FER CREARE NUOVI SCHEMI ED EFFETTI. 

<'R’ PER RILEGGERE, <ESC> PER TORNARE > 


La scelta dei tasti di controllo è stata fatta anche tenendo conto di 
eventuali pressioni accidentali dei tasti stessi. 
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applicando applicando 

applicando 

applicando applicando 

applicando 

applicando applicando 

■F 

1 48 
30 

Ecco un esempio applicativo di Designer: il logo della rivista 
Applicando duplicato più volte. 


U U L 0 p E 
AZIONE 
T A U 0 L A 


B I A N C 0 1 

TASTIERA 
P R 0 G R A M M A 


N u n E R 0 F I G U 
ROTAZIONE=0 
SCALA •• 1 


RA 


Se si fa un errore o si cambia idea 
durante questa operazione premete 
un tasto qualsiasi per annullare la sele¬ 
zione. 

Riempimento 
dello schermo 

Per iniziare un disegno è più como¬ 
do avere lo schermo "riempito" di un 
colore specifico. Per cominciare quin¬ 
di dovete scegliere il colore che prefe¬ 
rite premendo il tasto C. Quando il 
colore voluto è visualizzato nella fine¬ 
stra di testo premete CTRL-E. Così 
si cancellerà qualsiasi disegno esisten¬ 
te sullo schermo e si potrà cominciare 
da capo. 

Spostamento 
e disegno 

Disegnare tramite tastiera o padd- 
le? Sia l’uno sia l’altro metodo di con¬ 
trollo dell’azione hanno i loro vantag¬ 
gi. L’uso della tastiera vi consente una 
maggior precisione e vi libera dal ner¬ 
vosismo delle paddle. Potete spostare 
rapidamente la figura in posizione te¬ 
nendo premuto il tasto CTRL e pre¬ 
mendo uno dei quattro tasti di direzio¬ 
ne I, J, K e , (virgola). I ritocchi finali li 
farete in seguito, premendo soltanto i 
tasti di direzione. Supposto che i fatto¬ 
ri di scala e di rotazione facciano al 


caso vostro dovete premere D per di¬ 
segnare la figura con DRAW o X per 
cancellarla con XDRAW. 

L’impiego delle paddle o di un joy¬ 
stick vi permette invece di usare la 
figura come pennello. Se scegliete per 
esempio una delle circonferenze, 
muovendola lentamente sullo scher¬ 
mo mentre tenete premuto un pulsan¬ 
te otterrete lo schema di un tubo tor¬ 
tuoso. 

Le figure possono essere usate an¬ 
che come "gomma" per correggere gli 
errori di disegno e apportare cambia¬ 
menti ai disegni già creati. 


Tutto schermo 
e schermo misto 

Il tasto F permette la commutazione 
della visualizzazione su video. Le due 
posizioni sono con il disegno a pieno 
video o con una finestra di testo inseri¬ 
ta sul disegno. Tale finestra mostra lo 
stato di varie cose, come il colore scel¬ 
to, e viene utilizzata anche per i mes¬ 
saggi e i prompt di input. Se si sta 
lavorando a tutto schermo e si usa un 
comando che richiede che si veda la 
finestra di testo il programma riporte¬ 
rà automaticamente allo schermo mi¬ 
sto. 

Quando si usa il tasto T per commu¬ 
tare fra la propria tavola delle figure e 
la tavola del programma viene caricata 
dal dischetto quella appropriata. Se si 
sono scambiati i dischetti il program¬ 
ma non riuscirà a trovare la tavola giu¬ 
sta e ne darà comunicazione. Non c’è 
che da inserte il dischetto giusto e 
riprovare. 

L’uso delle tavole 
di vettori 

Oltre a usare le tavole delle figure 
questo programma può anche dise¬ 
gnare una figura basata su un file di 
vettori creato dal programma Apple 
illustratore (.Applicando n. 15). Ciò 
potrebbe risultare comodo qualora 
non riusciste a trovare una particolare 
tavola, ma soltanto i file di vettori che 
sono entrati a farne parte. Quando 
avrete finito di utilizzare un file di vet- 



Un altro esempio: lo schema elettrico di un allarme a intermittenza. 
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Listato 1 - DESIGNER 


10 

11 

12 

13 

14 

15 

16 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 


570 


580 

590 

600 

610 

620 

630 

640 


650 

660 

670 

680 


REM ********************** 
REM * DESIGNER * 
REM * DI COLIN FRENCH * 
REM * COPYRIGHT (0 1985 * 
REM * BY APPLICANDO & * 
REM * MICROSPARC, INC * 
REM ********************** 
IF PEEK (104) = 64 THEN 120 


POKE 103.1 : POKE 104,64: POKE 16384,0 
PR1NT uHR$ (4);"RUN DESIGNER" 

REM ******* IN1TIALIZZA VARIABILI ********** 
D$ = CHR$ (4): TEXT : HOME 
DIM C$(7),A$(1),T$(2) 

C$<0) 


C*<3) 

C$(6) 

A*(0) 

T$(0) 

O* 

D* = 


NERO 1 :C$(1) = "VERDE ":C$<2) = "BLU 
'BIANCO 1":C*<4) = "NERO 2":C*<5) = "ARMCIQ 
VIOLA " :C$(7) = "BIMCQ 2" 

TASTIERA":A$(1) = "PADDLES 


= "UTENTE " :T$(1) = "PROGRAM" :T$(2) = "NESSUN 


CHR$ (4):XC = 140:YC = 90 
TABLE = 0 :SCREEN = 0:ACT = 0 
CC = 3: HCQLQR= CC:RR = 0: ROT= RR 
SS = 1: SCALE= SS:NN = 1 
FAST = 8:UN$ = "":NUM$ = "" 

REM -IMPOSTA INDIRIZZO TAVOLA FIGURE- 
POKE 232.1 : POKE 233,8 
REM -VISUALIZZA PRÉSENTAZIQNE- 
GOSUB 4000 

REM -RICEVE NOME DELLA TAVOLA F1GURE- 
LOC = 1 : GOTO 400 

REM ******* INIZIALI ZZA SCHERMO ************* 

HGR 

HOME : VTAB 21 

INVERSE : PRINT " ** DESIGNER ** ? -ISTRUZIONI 
": NORMAL 

PRINT "COLORE: ";C$(CC);’ NtflERO FIGURA : ";: HTA 

B 37: PRINT W 

PRINT "AZIONE: ";A$(ACT):" ROTAZIONE: X: HT 

AB 30: PRINT RR:: HTAB 32: PRINT XC 
PRINT "TAVOLA: 1 ;7$<TABLE);" SCALA : Y: HT 

AB 30: PRINT SS;: HTAB 37: PRINT YC; 

GOTO 1000 

REM ******* RICEVE NOME TAVOLA DELL'UTENTE ****** 
TABLE = 0:W = 1 

IF SCREEN = 1 THEN SCREEN = 0: POKE - 16301,0 
HOME : VTAB 24: PRINT 1 (DEFAULT= TAVOLA/"; 

IF Uh» < ) "" THEN PRINT UN$:")"; 

IF UN* = " B THEN PRINT T$(l):*)" ; 

HTAB 1: VTAB 22: PRINT "NOME DELLA TAVOLA 9 TAVOLA/"; 
LMT = 22: GOSUB 700: IF 14 = " THEN 14 = UN$ 

IF 14 = " THEN TABLE = 1: GOTO 590 
ONERR GOTO 550 

VTAB 22: PRINT : PRINT D*;"8L0AD TAVOLA/";14;",A$801" 
REM -RESET FLAG ERRORE- 
POKE 216,0:UN$ = 14: GOTO 660 
POKE 216,0: HOME : VTAB 22 

IF PEEK (222) = 11 THEN PRINT "NOME DI FILE NON VALID 
0.": PRINT "RIPROVA. (BATTI (RETURN» ";: GET Z$: GOT 
0 400 

IF PEEK (222) = 6 THEN PRINT "LA TAVOLA NON E' SU QUE 
STO DISCO.": PRINT "RIPROVA. (PREMI (RETURN)) ";: GET 
Z$: GOTO 400 
GOTO 900 
ONERR GOTO 630 
VTAB 22: PRINT : 


PRINT D*;"BLQAD TAVOLA/PROGR#ttt,A$801 


REM -RESET FLAG ERRORE- 
POKE 216,0: GOTO 660 
POKE 216,0: HOME : 'VTAB 22 

IF PEEK (222) = 6 THEN PRINT "TAVQLA/PROGRAftlA NON E' 
SU QUESTO DISCO."ì: PRINT "INSERISCI IL DISCO GIUSTO." 
: PRINT "(PREMI (RETURN» ";: GET Z$: GOTO 400 
GOTO 900 

REM -RICEVE IL NUMERO DELLE FIGURE DELLA TAVOLA- 
SNUM = PEEK (2049) 

IF LOC = 1 THEN GOTO 300 



690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

900 

910 

920 

930 

940 

950 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 


GOTO 340 

REM ******* ROUTINE DI INPUT MULTI-LETTERA **** 

W$ = "" 

GET Z* 

IF Z$ = CHR* (13) THEN RETURN 

IF ZI = CHR* (8) THEN 790 

IF LEN 04) = LMT THEN 740 

PRINT Z$;:i4 = 14 + Z$: GOTO 740 

IF LEN 04) = 0 THEN 740 

PRINT CHRI (8);: PRINT " ";: PRINT CHR* (8); 

IF LEN 04) = i THEN 730 

14 = LEFT$ 04, LEN 04) - 1): GOTO 740 

REM ******* ERRORI DISCO INCONSUETI *********** 

PRINT "UN ERRORE DI SISTEMA N."; PEEK (222);" E' AWENU 
TO' 

PRINT "A LINEA N."; PEEK (218) ♦ PEEK (219) * 256 
POKE 216,0: END 

REM *********** LOOP PRINCIPALE ***************** 
XDRAW m AT XC.YC 

REM -CONTROLLA IL TASTO PREMUTO- 
K = PEEK (- 16384): POKE - 16368,0 
XDRAW W AT XC,YC 
IF K ( 128 THEN K$ = "": GOTO 1340 
K$ = CHR* (K - 128) 

REM -SALTA ALLE FUNZIQNI- 

IF ASC <K$) > = ASC CO") AND ASC (K$) ( = ASC ( 


"9") THEN 1900 


Continua 
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tori non dovrete fare altro che preme¬ 
re il testo T per ricaricare la tavola 
delle figure. Se avrete specificato il 
numero della tavola che desiderate, 
Designer la cercherà sul dischetto, al¬ 
trimenti, in mancanza di specificazio¬ 
ni, verrà caricata la tavola delle figure 
ordinaria. 


Tavola/programma 

Per la maggior parte, le figure di 
Tavola/programma sono destinate a 
essere usate nella stessa scala in cui 
compaiono. L’ingrandimento di un 
determinato cerchio, per esempio, 
non avrà come risultato un cerchio 
pieno più grande. Provare per crede¬ 
re. È questo il motivo per cui sono 
state previste diverse dimensioni per 
ciascuna figura. 

Ogni gruppo di figure è congegnato 
in modo che esse si "annidino" l’una 
nell’altra. Così se si vuol disegnare un 
circolo pieno grande si disegni il circo¬ 


lo pieno più piccolo, poi si vada alla 
figura successiva, un anello che si 
adatta attorno a quel circolo, e dise¬ 
gnatela ottenendo un cerchio più gran¬ 
de. Naturalmente se volete una coro¬ 
na circolare (un anello, per intendersi) 
è sufficiente scegliere soltanto la se¬ 
conda figura. 

Le poche figure che possono essere 
portate in scala sono la linea (figura 
numero 2), il quadrato (figura numero 
3) e il rettangolo (figura numero 24). 

La linea è particolarmente utile. 
Per disegnare una qualsiasi linea è suf¬ 
ficiente ingrandire in scala la figura 
della tavola fino alle dimensioni ri¬ 
chieste. Se è necessario potete poi ruo¬ 
tare la linea ottenuta e, quando vi sem¬ 
bra di avere ottenuto il risultato che 
desideravate, dovete premere il tasto 
D per disegnarla. Non dimenticatevi 
poi di riportare la scala a uno prima di 
passare alla figura piena, altrimenti as¬ 
sisterete a un affascinante spettacolo 
grafico che, ne siamo certi, non vi farà 
troppo piacere perché vi costringerà a 
rifare tutto. 


Lista delie illustrazioni 
di Tavola/Programma 

Nome 
Dot 
Linea 

Quadrato. Profilo 
QUI. Riempito 
QU2. Riempito 
QU3. Riempito 
QU4. Riempito 
Circolo 1. Profilo, 


9 

12 

Circolo 2. Profilo, 
Circolo 4. Profilo 
Circolo 1. Riempito 

10 

13 

Circolo 2. Riempito 

11 

14 

Circolo 3. Riempito 

12 

15 

Circolo 4. Riempito 

13 

16, 17, 18 e 19 

TRI1. Profilo, 

14 

20 

TRI2. Profilo, 

TRI3. Profilo 

TRI1. Riempito 

15 

21 

TRI2. Riempito 

16 

22 

TRI3. Riempito 

17 

23 

TRI4. Riempito 

18 

24 

Rettangolo. Profilo 

19 

25 

Retti. Riempito 

20 

26 

Rett2. Riempito 

21 

27 

Rett3. Riempito 

22 

28 

Rett4. Riempito 


Un esempio 

Allo scopo di rendere un po’ più 
chiara la moltitudine di funzioni di 
DESIGNER realizziamo il semplice 
schema elettronico visibile nella figura 
1. Supponiamo di aver già creato (e 
salvato su dischetto con il nome 
ELETTRONICA) una tavola delle fi¬ 
gure contenente il disegno di ogni 
componente elettronico che potrem¬ 
mo voler usare. Quelle che ci interes¬ 
sano in questo caso sono: una linea, un 


Immagine N. Figura N. 

1 1 

2 2 

3 3 

4 4 

5 5 

6 6 

7 7 

8 8.9,10 e 11 




















































































quadrato per i circuiti integrati, una 
resistenza, un condensatore non pola¬ 
rizzato, un simbolo di terra, un alto- 
parlante e infine un dot 3x3 che utiliz¬ 
zeremo per indicare le connessioni al¬ 
l’incrocio delle linee. 

Se decidete di esercitarvi con que¬ 
sto esempio sulle possibilità di DESI¬ 
GNER dovete battere la "tavola delle 
figure di elettronica". Quando è com¬ 
pletamente introdotta dovete salvarla 
con il comando: 


BSAVE TAVOLA/ELETTRONI- 
CA,A$9C5,L$4E2 

Adesso potete iniziare a usare DE¬ 
SIGNER. Dopo che il computer vi ha 


chiesto se volete le istruzioni vi chiede 
il nome della tavola delle figure che 
volete usare. Se premete il tasto RE¬ 
TURN verrà caricata la tavola di de¬ 
fault indicata fra parentesi. Voi dove¬ 
re battere invece ELETTRONICA e 
verrà caricata la Tavola/elettronica 
che contiene le figure che servono per 
disegnare lo schema elettronico pro¬ 
posto per esercizio. Lo schermo viene 
pulito e viene visualizzata la prima fi¬ 
gura della tavola. 

La finestra di testo indica il corrente 
colore di disegno (in questo caso: 
bianco 1), il numero della figura che 
viene visualizzata (1), se la figura può 
essere mossa con controllo da tastiera 
o da paddle (tastiera), il fattore di ro¬ 
tazione usato per disegnare la figura 


(0), la coordinata X della figura (140), 
se la tavola che si sta usando è dell’u¬ 
tente oppure quella ordinaria del pro¬ 
gramma (in questo caso è dell’utente), 
il fattore di scala usato per disegnare la 
figura (1) e infine la coordinata Y della 
figura (90). 

Cominciate disegnando i due circui¬ 
ti integrati temporizzatori 555. Dovete 
scegliere il quadrato, figura numero 2 
della nostra tavola, o premendo il ta¬ 
sto N per avanzare alla figura successi¬ 
va della tavola o battendo 002. A que¬ 
sto punto dovete spostare il riquadro 
sul lato sinistro dello schermo tenendo 
premuto il tasto CTRL e premendo il 
tasto J. 

Per assicurarsi che ci sia spazio a 
sufficienza per inserire il contrassegno 


Ilio 

IF 

NUMI < > "" THEN NUMI = ": VTAB 22: HTAB 37 

PRIN 

1920 


T 


" : : HTAB 37 : PRINT NN 


1930 

1120 

IF 

KI 

= "C" THEN 2000 


1940 

1125 

IF 

KI 

= "0" THEN GET KI: GOTO 1120 


1950 

1130 

IF 

KI 

= "R" THEN 2100 


1960 

1140 

IF 

KI 

= CHRI (18) THEN 2150 


1970 

1150 

IF 

KI 

= "S" THEN 2200 


1980 

1160 

IF 

KI 

= CHRI (19) THEN 2250 


1990 

1170 

IF 

KI 

= "N" THEN 2300 


2000 

1180 

IF 

KI 

= CHRI (14) THEN 2350 


2010 

1190 

IF 

KI 

= "0" THEN DRAW ffl AT XC.YC: GOTO 1000 


2020 

1200 

IF 

KI 

= "X" THEN X = PEEK (8192):IXX = 1NT (X 

/ 128) 

2030 


:X 

= 

- (128 * 1X50 :XX = INT (X / 42) :X = XX ♦ 

(4 * 

2040 


1X50 : 

HC0L0R= X: DRAU NN AT XC.YC: HC0L0R= CC: GOTO 10 

2100 


00 




2110 

1210 

IF 

KI 

= "F" THET4 2400 


2120 

1220 

IF 

KI 

= "T" THEN 2500 


2130 

1230 

IF 

KI 

= "A" THEN 2700 


2140 

1240 

IF 

KI 

= CHRI (20) THEN L0C = 2: GOTO 400 


2150 

1250 

IF 

KI 

= "P" THEN 2800 


2160 

1260 

IF 

KI 

= "G" THEN 3000 


2170 

1270 

IF 

KI 

= "V" THEN 3200 


2180 

1280 

IF 

KI 

= CHR$ (5) THEN HPLOT 0,0: CALL 62454: GOTO 10 

2190 


00 




2200 

1290 

IF 

KI 

= CHRI (27) THEN TEXT : HOME : POKE 103, 

1: POK 

2210 


E 104, 

,8: POKE 105,24: POKE 106,8: END 


2220 

1300 

IF 

KI 

= CHRI (4) THEN 3400 


2230 

1310 

IF 

K$ 

= *?■ THEN GOSUB 5000: POKE - 16304,0: GOTO 34 

2240 


0 




2250 

1320 

REM 

-SPAZIO PER INSERIRE ALTRE FUNZIQNI- 


2260 

1330 

REM 

-SPAZI0 PER INSERIRE ALTRE FUNZI0NI- 


2270 

1340 

REM 

-SPOSTAMEffrO DELLA FIGURA- 


2280 

1345 

YN 

= YC:XN = XC 


2290 

1350 

IF 

ACT = 1 THEN 1450 


2300 

1355 

XN 

= XC:YN = YC 


2310 

1360 

IF 

KI 

= M' THEN re = YC - 1: IF YC < 0 THEN YC 

= 191 

2320 

1370 

IF 

KI 

= ’J’ THEN XC = XC - 1 : IF XC < 0 THEN XC 

= 279 

2330 

1380 

IF 

KI 

= "K" THEN XC = XC + 1: IF XC ) 279 THEN XC = 0 

2340 

1390 

IF 

K$ 

= "M* THEN YC = YC ♦ 1: IF YC > 191 THEN YC = 0 

2350 

1400 

IF 

KI 

= CHR$ (9) THEN YC = YC - FAST: IF YC ( 0 

THEN 

2360 


YC 

= YC + 191 


2370 

1410 

IF 

KI 

= CHRI (10) THEN XC = XC - FAST: IF XC ( 

0 THEN 

2380 


XC = 

XC + 279 


2390 

1420 

IF 

KI 

= CHR* (11) THEN XC = XC + FAST: IF XC > 

279 TH 

2400 


EN 

XC 

= XC - 279 


2410 

1430 

IF 

KI 

= CHRI (13) THEN YC = YC + FAST: IF YC ) 

191 TH 

2420 


EN 

YC 

= YC - 191 


2430 

1435 

IF 

YN 

= YC AND .XN = XC THEN GOTO 1000 


2440 

1440 

HTAB 1 

1: VTAB 23: GOTO 370 


2450 

1450 

XC 

= 

INT ( PDL (0) » 1.095) 


2460 

1460 

F0R D 

= 1 TO 5: NEXT D 


2500 

1470 

YC 

= 

INT ( PDL (1) / 1.34) 


2510 

1480 

REM 

-VIENE PREMUTO IL PULSANTE?- 


2520 

1490 

IF 

PEEK ( - 16287) > 127 OR PEEK ( - 16286) > 

127 TH 

2530 


EN 

DRAU W AT XC.YC 


2540 

1495 

IF 

YN 

= YC AND XN = XC THEN GOTO 1000 


2550 

1500 

HTAB 1 

1: VTAB 23: GOTO 370 


2560 

1900 





2570 

1910 

REM 

******* SCELTA NUMERO DELLA FIGURA ****** 




numi = numi ♦ ki 

IF LEN (NUMI) = 1 THEN VTAB 22: HTAB 37: PRINT '' 

VTAB 22: HTAB 37: PRINT NUMI 
IF LEN (Nim> < 3 THEN 1000 
T = VAL (NUM$):NUM$ = ,B 

IF T < 1 OR T > SNUM THEN HTAB 1: VTAB 22: GOTO 360 
m = T: HTAB 1: VTAB 22: GOTO 360 

REM ******* INCREMENTO COLORE *************** 

CC = CC ♦ 1: IF CC > 7 THEN CC = 0 
HC0L0R= CC: HTAB 1: VTAB 22: GOTO 360 

REM ****** INCREMENTO ROTAZIONE ************* 

RR = RR 4 1: IF RR > 63 THEN RR = 0 
R0T= RR: HTAB 1: UTAB 22: GOTO 360 

REM ******* DECREMENTO ROTAZIONE ************ 

RR = RR - 1: IF RR < 0 THEN RR = 63 
R0T= RR: HTAB 1: VTAB 22: GOTO 360 

REM ******* INCREMENTO SCALA *************** 

SS = SS 4 1 : IF SS > 255 THEN SS = 1 
SCALE= SS: HTAB 1: VTAB 22: GOTO 360 

REM ******* DECREMENTO SCALA *************** 

SS = SS * 1: IF SS < 1 THEN SS = 1 
SCALE= SS: HTAB 1: VTAB 22: GOTO 360 

REM ****** INCREMENTO NUMERO FIGURA ********* 

W = W ♦ 1: IF W ) SNUM THEN NN = 1 
HTAB 1: VTAB 22: GOTO 360 

REM ****** DECREMENTO NUMERO FIGURA ********* 

hN = NN - 1 : IF NN < 1 THEN W = SNUM 
HTAB 1: VTAB 22: GOTO 360 

REM ****** TUTTO SCHERMO/SCHERMO MISTO ******* 

SCREEN = N0T (SCREEN) 

IF SCREEN = 0 THEN P0KE -16301,0 
IF SCREEN = 1 THEN P0KE - 16302,0 
GOTO 1000 

REM ****** TAVOLA UTENTE/TAVOLA PRQGRtftlA ******* 

ÌF TABLE = 1 AND UNI = ,B THEN L0C = 2: GOTO 400 
IF TABLE = 2 AND UNI = ** THEN TABLE = 1 : GOTO 2560 
TABLE = N0T (TABLE) 

VTAB 22: PRINT : QNERR GOTO 2630 

IF TABLE = 0 THEN PRINT DI;'BL0AD TAVOLA/ 7 " ; UNI ; * ,AI80 

1 " Continua 
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La MT/80+ e la PC dispongono di 
interfacciamento parallelo e seriale che permette 
di connettere questi prodotti a qualsiasi Micro o PC. 
Per la stampa a basso costo, le stampanti della 
famiglia MT/80 sono perfette, rispondendo ad 
ogni tua necessità di stampa. 

La velocità di stampa é a 100 o 130 cps. con una 
matrice estremamente chiara e pertanto ideale 
per stampare i tuoi listati, le tue lettere ecc. 

Le stampanti della famiglia MT/80 
oltre che trascinare la carta con 
trattori di spinta consentono 
anche, per mezzo della frizione, di 
inserire il foglio singolo. 

Le MT/80 sono belle a vedersi, 
facili da usare, non richiedono 
manutenzione preventiva, 
silenziose ed in più la versione 80 
PC é completamente 
compatibile con il tuo PC IBM, 



20094 Corsico (MI) - Via Cadamosto, 3 
Tel. (02) 4502850/855/860/865/870 - Telex 311371 Tally I 
00137 Roma - Via I. Del Lungo, 42 - Tel. (06) 8278458 
10099 San Mauro (TO) - Via Casale, 308 - Tel. (011) 8225171 
40050 Monteveglio (BO) - Via Einstein, 5 - Tel. (051) 832508 







2580 

2590 

2600 

2610 

2620 

2630 

2640 

2650 


2660 

2700 

2710 

2720 

2730 

2740 

2800 

2810 

2820 

2830 

2840 

2850 

2860 

2870 

2880 

2890 

2900 

2910 


2920 


2930 

3000 

3010 

3020 

3030 

3040 

3050 

3060 

3070 

3080 

3090 

3100 

3110 


3120 


3130 

3200 

3210 

3220 

3230 

3240 

3250 

3260 

3270 

3280 

3290 

3300 

3310 

3320 

3330 

3340 

3350 


3360 


3370 

3400 

3410 

3420 

3430 

3440 

3450 


1F TABLE = 1 THEN PRINT D$; 8 BLOAD TAVQLA/PRQGRAftIA ,A$ 

sor 

REM -RESET FLAG ERRORE- 
POKE 216.0 

REM -RIGEME NUMERO DELLE FIGURE DELLA TAVQLA- 
SNUM = PEEK (2049):NN = 1 : HTAB 1 : VTAB 22: GOTO 360 
IF SCREEN = 1 THEN SCREEN = 0: POKE - 16301,0 
HOME : VTAB 22: POKE 216,0 

IF PEEK (222) = 6 THEN PRINT 8 LA TAVOLA NON E' SU QU 
ESTO DISCO. 8 : PRINT "RIPROVA, (PREMI (RETURN» 8 ;: G 
ET Z$:TABLE = NOT (TABLE): GOTO 340 
GOTO 900 

REM ****** AZIONE: TASTIERA/PADDLES ******* 

ACT = NOT (ACT) 

HTAB 1: VTAB 23: GOTO 370 

REM ***** SALVA LA FIGURA SUL DISCO ************* 

ÌF SCREEN = 1 THEN SCREEN = 0: POKE - 16301,0 
HOME : VTAB 22: PRINT “NOME DELLA FIGURA 9 8 ; 

LMT = 30: GOSUB 700 

IF 14$ = 88 OR W$ = CHR$ (27) THEN 340 
ONERR GOTO 2900 

VTAB 22: PRINT : PRINT D$; 8 BSAVE 8 ;W$; 8 ,A$2Q00,L$1FF8 8 
POKE 216,0: GOTO 340 
POKE 216,0: HOME : VTAB 22 

IF PEEK (222) = 11 THEN PRINT "NOME DI FILE NON VALI 
DO. 8 : PRINT ‘RIPROVA. (PREMI (RETURN)) 8 ; : GET Z$: G 
OTO 340 

IF PEEK (222) = 9 THEN PRINT 8 NQN C'E' ABBASTANZA SP 
AZIO NEL DISCO. 8 : PRINT "RIPROVA. (PREMI (RETURN» 8 
:: GET Z$: GOTO 340 
GOTO 900 

REM ****** CARICA LA FIGURA DAL DISCO ********** 

ÌF SCREEN = 1 THEN SCREEN = 0: POKE - 16301,0 
HOME : VTAB 22: PRINT "NOME DELLA FIGURA 9 8 ; 

LMT = 30: GOSUB 700 

IF 14$ = 88 OR W$ = CHR$ (27) THEN 340 
ONERR GOTO 3100 

VTAB 22: PRINT : PRINT D$; 8 8LGAD 8 ;U$; 8 ,A$2000" 

POKE 216,0: GOTO 340 
POKE 216,0: HOME : VTAB 22 

IF PEEK (222) = 11 THEN PRINT "NOME DI FILE NON VALI 
DO. 8 : PRINT “RIPROVA. (PREMI (RETURN» GET Z$: G 
OTO 340 

IF PEEK (222) = 6 THEN PRINT 8 LA FIGURA NON ESISTE S 
U QUESTO DISCO. 8 : PRINT "RIPROVA. (PREMI (RETURN)) 8 
:: GET Z$: GOTO 340 
GOTO 900 

REM ****** CARICA UN FILE DI VETTORI ************* 

ÌF SCREEN = 1 THEN SCREEN = 0: POKE - 16301.0 
HOME : VTAB 22: PRINT "NOME DEL FILE VETTORI? VETTORI./ 

■ , 

Uh = 22: GOSUB 700 

IF 14$ = 88 OR 14$ = CHR$ (27) THEN 340 
ONERR GOTO 3340 

VTAB 22: PRINT : PRINT D$; 8 BLOAD VETTORI/ 8 jW$; 8 ,A$805 8 

POKE 216.0:TABLE = 2:SNUM = 1:NN = 1 

REM -POKE INTESTAZIONE PER LA TAVOLA - 

POKE 2049,1: POKE 2050,0 

POKE 2051,4: POKE 2052,0 

GOTO 340 

POKE 216,0: HOME : VTAB 22 

IF PEEK (222) = 11 THEN PRINT "NOME DI FILE NON VALI 
DO. 8 : PRINT “RIPROVA. (PREMI (RETURN)) 8 ;: GET Z$: G 
OTO 340 

IF PEEK (222) = 6 THEN PRINT 8 IL FILE VETTORI NON ES 
ISTE SUL DISCO. 8 : PRINT "RIPROVA. (PREMI (RETURN)) 8 
:: GET Z$: GOTO 340 
GOTO 900 

REM ******* CATALQG ******************* 

ÌF SCREEN = 1 THEN SCREEN = 0: POKE - 16301,0 
TEXT : HOME : PRINT : PRINT D$; 8 CATALOG 8 
PRINT : PRINT 8 (PREMI (RETURN) QIMNDO HAI FINITO) 8 
;: GET Z$ 


3460 

3470 

3480 

4000 

4010 

4020 

4030 

4040 

4050 

4060 

4070 

4090 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

5070 

5080 

5090 

5100 

5110 

5120 

5130 

5140 

5150 

5160 

5170 

5180 

5190 

5200 

5210 

5220 


REM -TORNA ALLA GRAFICA- 
POKE - 16304,0 
GOTO 340 

REM ******* PRESENTAZIONE ****************** 

TEXT : HOME 

VTAB 8: HTAB 12: PRINT "*** DESIGNER ***": VTAB 12: PR 
1NT *(C) 1985 BY APPLICANDO 4 MICROSPARC,INC.“ 

VTAB 20: PRINT 1 VUOI LE ISTRUZIONI? *: 

GET Z$: IF Z$ = "S* THEN GOSUB 5000: GOTO 4090 
IF Zi < > 'N* THEN 4040 
HOME : RETURN 

REM ***»*» ISTRUZIONI ****************** 

TEXT : HOME 

ltWERSE : PRINT 1 **« DESIGNER *** 

■:: NORMAL : PRINT 

PRINT 1 CON QUESTO PROGRAM» PUOI DISEGNARE 1 
PRINT ‘FIGURE SULLO SCHERMO IN Hl-RES, DA UT1- LIZZARE 
NELLE TAVOLE DELLE FIGURE.* 

PRINT ‘ C'E' ANCHE IH» TAVOLA DELLE FIGURE’ 

'STANDARD CHIAMATA TAVOLA/PROGRAM»'* 
'COMPRENDENTE VARI DISEGNI CHE PUOI USARE' 

'-CONTROLLI PER IL DISEGNO.‘ 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


' D -DISEGNA FIGURA' 

' X -CANCELLA FIGURA' 

' R -AUMENTA ROTAZIONE' 

■CTRL-R -DIMINUISCE ROTAZIONE' 

' S -AUMENTA SCALA' 

’CTRL-S -DIMINUISCE SCALA' 

' C -CAMBIA COLORE' 

PRINT '«ATTENZIONE" CTRL-C FERMA IL PROGRAM»" 
PRINT ' N -MOSTRA LA FIGURA SEGUENTE ' 

PRINT 'CTRL-N -MOSTRA LA FIGURA PRECEDENTE' 
PRINT ' (OPPURE BATTI IL NUMERO DELLA FIGURA)' 


Listato 2: TAVOLA/PROGRAMMA 


*801.1 

: C5 








0940- 

36 

3E 

24 

3C 

36 

3E 

24 

3C 

0891- 

1C 

00 

3A 

00 

3C 

00 

3F 


0948- 

36 

3E 

24 

3C 

36 

3E 

24 

3C 

0808- 

00 

45 

00 

74 

00 

C3 

00 

65 

0950- 

36 

3E 

24 

3C 

36 

36 

2D 

35 

0810- 

01 

49 

02 

5E 

02 

80 

02 

B4 

0958- 

3F 

37 

2D 

35 

3F 

37 

2D 

35 

0818- 

02 

FD 

02 

28 

03 

6C 

03 

F7 

0960- 

3F 

37 

2D 

35 

00 

01 

1B 

1B 

0820- 

03 

D4 

04 

E3 

04 

03 

05 

34 

0968- 

1B 

1B 

1B 

1B 

3F 

37 

2D 

35 

0828- 

05 

76 

05 

83 

05 

BE 

05 

14 

0970- 

3F 

37 

2D 

35 

3F 

37 

2D 

35 

0830- 

06 

8B 

06 

93 

06 

B1 

06 

D4 

0978- 

3F 

37 

2D 

35 

3F 

37 

2D 

35 

0838- 

06 

3B 

07 

05 

00 

3F 

07 

00 

0980- 

3F 

37 

2D 

35 

3F 
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5230 

5240 

5250 

5260 

5270 

5280 

5290 

5300 

5310 

5320 

5330 

5340 

5350 

5340 

5370 

5380 

5390 

5400 

5410 

5420 

5430 

5440 

5450 

5460 

5470 

5480 

5490 

5500 

5510 

5520 

5530 

5540 

5550 

5560 

5570 


PRINT 'CTRL-E 
VTAB 24: PRINT 


-COLORA L'INTERO SCHERMO 8 
• <'M' PER ALTRO, (ESC) PER TORNARE) 


GÉT 2$: IF li = CHItt (27) THEN 5460 
IF li < ) "M B THET4 5250 


HOME : PRINT 
: PRINT 
PRINT 8 
PRINT 1 
PRINT 8 J 

PRINT ■ K 

PRINT 8 M 

PRINT “CTRL-I 
PRINT 8 CTRL-J 
PRINT 'CTRL-K 
PRINT 8 CTRL-M 

print 8 

PRINT "PDL<0) 
PRINT 'PDL(l) 


-CONTROLLI SPOSTAMENTO- 


PRINT 


- CONTROLLO DA TASTIERA:': 

- FIGURA IN SU DI UN DOT' 

- FIGURA A SINISTRA DI UN DOT' 

- FIGURA A DESTRA DI UN DOT' 

- FIGURA IN GIU' DI UN DOT 8 

- FIGURA IN SU DI 8 DOT' 

- FIGURA A SINISTRA DI 8 DOT' 

- FIGURA A DESTRA DI 8 DOT' 

- FIGURA IN GIU' DI 8 DOT 8 : PRINT 

- CONTROLLO CON LE PADDLE: 8 : PRINT 

- SPOSTAMENTO IN ORIZZONTALE 8 

- SPOSTAMENTO IN VERTICALE 8 
PRINT 'PULSANTE- DISEGNA LA FIGURA 8 

VTAB 24: PRINT ' ('N' PER ALTRO, <ESC> PER TORNARE) 

6ET Hi IF li = CHR* (27) THEN 5660 
IF H < > 'M' THEN 5420 

HOME : PRINT '-—.—ALTRI CONTROLLI-- 

PRINT 8 F -COMMUTA FRA TUTTO SCHERMO E' 

PRINT 8 SCHERMO MISTO' 

PRINT 8 T -COMMUTA FRA TAVOLA FIGURE PRO- 8 
PRINT 8 GRAMMA E TAVOLA FIGURE UTENTE* 

PRINT 'CTRL-T -CARICA UN'ALTRA TAVOLA UTENTE* 

PRINT 8 A -AZIONE: COMMUTA FRA CONTROLLO 8 
PRINT 8 PADDLE E CONTROLLO TASTIERA 8 

PRINT 8 P -SALVA SU DISCO LO SCHERMO HI-RES 8 ; 

PRINT 8 G -CARICA UNA FIGURA DAL DISCO 8 

PRINT 8 V -CARICA UN FILE VETTORI AL POSTO 8 
PRINT 8 DELLA TAVOLA FIGURE IN USO 8 

PRINT 8 CTRL-D -CATALOGO DEL DISCO 8 
PRINT 8 7 -VISUALIZZA QUESTE ISTRUZIONI 8 


5580 PRINT 8 (ESC) -FINE PROGRAMMA 8 : PRINT 
5590 PRINT 8 CIASCUNA DELLE FIGURE PUÒ' ESSERE 8 
5600 PRINT "USATA COME 'PENNELLO' E SPOSTATA PER 8 
5410 PRINT "RIEMPIRE UNA SUPERFICIE, 0 SOVRAPPOSTA' 

5620 PRINT "PER CREARE NUOVI SCHEMI ED EFFETTI, 8 : PRINT 
5430 VTAB 24: PRINT '('R' PER RILEGGERE, (ESC) PER TORNARE) 

B , 

5640 GEÌ Hi IF H = 'R 8 THEN 5030 
5650 IF H < > CHR* (27) THEN 5640 
5660 HOME : RETURN 
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delFintegrato e i suoi piedini dovete 
aumentare la scala della figura pre¬ 
mendo il tasto S. Se tutto sembra a 
posto, premete il tasto D per disegna¬ 
re la figura. 

Adesso spostatevi sul lato destro 
dello schermo usando il tasto CTRL e 
il tasto K e disegnate il secondo inte¬ 
grato. 

Riducete la scala riportandola a uno 
con i tasti CTRL e S e scegliete la 
figura della resistenza sulla tavola del¬ 
le figure. Nel caso specifico la figura 
della resistenza è stata orientata in 
orizzontale, e quindi per usarla nel di¬ 
segno la si deve ruotare di 90 gradi. 
Premete il tasto R fino a che ROTA¬ 
ZIONE è uguale a 16. 

Adesso dovete muovere la figura 
mediante i quattro tasti di direzione e 
disegnare le varie resistenze. 

Se decidete di cambiare la posizione 
di una resistenza commutate il colore 
su NERO 1 (il colore di fondo) e dise¬ 
gnate di nuovo la figura, ottenendone 
così la cancellazione. Nel caso partico¬ 
lare, dato che stiamo lavorando in 
bianco e nero, potreste risolvere la si¬ 
tuazione anche con il semplice 
XDRAW della figura. 

Poi dovete aggiungere i condensato¬ 


ri, l’altoparlante e il simbolo di terra. 
Quindi collegate questi elementi usan¬ 
do la figura numero 1, la linea. E suffi¬ 
ciente utilizzare una linea molto corta 
di 3 dot e poi ingrandirla fino alla lun¬ 
ghezza necessaria. Dopo aver ruotato 
e posizionato la figura premete il tasto 
D per disegnare il collegamento. Que¬ 
sto lavoro può essere fatto anche dise¬ 
gnando più volte un tratto di linea cor¬ 
to, magari con un fattore di scala di 3 o 
4, con lo spostamento in una stessa 
direzione. 

Dopo che avrete disegnato le linee 
dovete indicare le connessioni metten¬ 
do in posizione il dot, figura numero 7, 
sui punti di congiunzione e disegnan¬ 
dolo. 

Infine dovrete mettere le iscrizioni 
sul disegno. Questo è possibile solo se 
si è creata una tavola delle figure con¬ 
tenente l’alfabeto. Dovrete soltanto 
battere CTRL-T e il nome della vo¬ 
stra tavola alfabetica che prenderà il 
posto della tavola di elettronica. Le 
iscrizioni andranno quindi inserite 
trattando le lettere e i numeri come 
normali figure grafiche da posizionare 
e disegnare secondo il vostro gusto e le 
vostre necessità. 

Per salvare il lavoro eseguito non 


dovrete fare altro che premere il tasto 
P che invierà al dischetto l’immagine 
presente sullo schermo con il nome 
che le assegnerete per poterla riutiliz¬ 
zare al bisogno. 

Caricamento 

Date le dimensioni del programma 
esso deve essere caricato sopra la pagi¬ 
na 1 dell’alta risoluzione. Questo vie¬ 
ne fatto nella prima linea del program¬ 
ma; si deve salvare il programma su 
dischetto con il nome DESIGNER. 
Vengono così riservati al programma 
circa 22K di memoria, meno quanto 
occorre per le stringhe e le variabili. 
Lo spazio al disotto dell a pagina 
Hi-Res è occupato da quella tavola 
delle figure che il programma sta usan¬ 
do. 

Battete il programma principale in 
Basic (Listato 1) e salvatelo con il no¬ 
me DESIGNER. Poi create la tavola 
delle figure denominata TAVOLA- 
/PROGRAMMA (Listato 2) che è 
usata dal programma principale. Essa 
rappresenta le illustrazioni della tavo¬ 
la che accompagna questo articolo (fi¬ 
gure da 1 a 22). Si può battere in me¬ 
moria il listato in esadecimale e poi 
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salvarlo su dischetto con il comando: 

BSAVE TAVOLA/PROGRAM¬ 
MA, A$801,L$7C5 


Modifiche possibili 

La modifica più utile che si possa 
apportare a DESIGNER è 1’aggiunta 
di una routine di dump sulla stampan¬ 
te per lo schermo Hi—Res. Ci sono 
due linee vuote, i numeri 1320 e 1330, 
nelle quali si possono aggiungere salti 
a nuove funzioni. Lo schema elettroni¬ 
co visibile all’inizio dell’articolo è sta¬ 
to realizzato usando una Centronics 
139 in combinazione con un’interfac¬ 
cia Data SAK con routine di dump 
incorporate. 

Una modifica che abbiamo già pro¬ 
vato consiste nell’aggiunta di una fun¬ 
zione "Diminuire il numero del colore" 
attivata da CTRL—C per conservare 
la coerenza con i controlli di scala, 
rotazione e numero della figura. Ab¬ 
biamo predisposto una routine gene¬ 
rale di ONERR GOTO che intrappo¬ 
lava l’interruzione di CTRL - C e cam¬ 
biava opportunamente il colore, ma 
qualche volta l’interruzione avveniva 
prima che venisse cancellata la figura 
lampeggiante. Così rimaneva sullo 
schermo un’immagine fantasma. Que¬ 
sta difficoltà potrebbe essere superata 
con un ulteriore sforzo di programma¬ 
zione, ma dato che ci sono soltanto sei 
colori con cui lavorare non si tratta di 
un grande problema. 

Chi vuole cimentarsi con il linguag¬ 
gio macchina può provare a inventare 
una routine che inverta i colori dello 
schermo Hi-Res, o addirittura a una 
routine di riempimento con il colore. 

DESIGNER 

personalizzati 

Invece di limitarvi a modificare DE¬ 
SIGNER, potreste utilizzare le sue 
routine per formare la base di una gran 
varietà di programmi di design più 
specializzati; per esempio un pro¬ 
gramma per la progettazione degli in¬ 
terni di uffici. Si devono soltanto sal¬ 
vare su dischetto i profili costruttivi di 
base che raffigurano i muri, le colon¬ 
ne, le finestre, i condotti per rimpian¬ 
to elettrico e via dicendo. In occasione 
della progettazione di una specifica 
area questo profilo di base potrebbe 
essere caricato dal dischetto sisteman¬ 
do poi le tramezze, le porte e il mobilio 


per completare il progetto. 

Con una simile versione di DESI¬ 
GNER si potrebbe perfino controllare 
se un determinato mobile o macchina¬ 
rio passa attraverso una porta, spo¬ 
stando la sua figura sulla pianta lungo 
quel tragitto. Creando questa specie di 
applicazione specializzata potreste 
persino migliorare la scelta delle figu¬ 
re allestendo un menù delle figure di¬ 
sponibili. 

Questo non si può fare con il DESI¬ 
GNER com’è, in quanto si ignorano 
lunghezza e contenuto della tavola 
delle figure dell’utente. 

Ma le modifiche che potete apporta¬ 
re a DESIGNER secondo le vostre 
esigenze non riguardano solo la spe¬ 
cializzazione delle figure: potete an¬ 
che modificare i comandi secondo le 
vostre esigenze, per esempio permet¬ 
tendo soltanto incrementi di rotazione 
di 45 gradi. 

Per andare in direzione compieta- 
mente opposta, che ne pensate di un 
programma per i bambini che permet¬ 
ta loro di creare mostri? La tavola del¬ 
le figure comprenderebbe diversi tipi 
di teste, gambe, corpi, code, ali e così 
via. Potrebbero essere messi assieme a 
volontà. Si potrebbero perfino inclu¬ 
dere nel programma parole raffigu¬ 
ranti effetti sonori, tipo quelle dei fu¬ 
metti, da aggiungere aH’immagine de¬ 
finitiva. 

L’aspetto importante del Computer 
Aided Design che non viene affronta¬ 
to in questo programma è l’analisi del¬ 
la progettazione mentre viene fatta. 
Essa può andare dai calcoli di superfi¬ 
cie e di costo per i progettisti di imbal¬ 
laggi alla simulazione dei circuiti elet¬ 
tronici all’analisi delle sollecitazioni. 
Tutti questi tipi di caratteristiche po¬ 
trebbero essere aggiunti da voi stessi 
per creare programmi di design più 
specializzati. 

DESIGNER è uno strumento di 
progettazione di impiego veramente 
generale che può farvi toccare con ma¬ 
no la grande versatilità e comodità del 
vostro Apple anche nei lavori più crea¬ 
tivi. 

Non bisogna infatti dimenticare 
che, insieme alle applicazioni più utili 
professionalmente, DESIGNER è an¬ 
che una sorta di penna magica con cui 
potete realizzare i più fantasiosi ghiri¬ 
gori che vi solleticano l’immaginazio¬ 
ne e il senso estetico! 


Questo programma è disponibile su 
dischetto. L’elenco, i prezzi e le 
modalità d’ordine di questo e degli altri 
dischetti disponibili sono riportati nella 
rubrica Disk Service. 

- ¥ 
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SCHEDE PER ACQUISIZIONI ANALOGICHE 


Mod.: XAD-1 - n. catalogo: 060160 
A / D converter 12 bit con orologio e 4 reed relays ■ Sezione A / D conver¬ 
ter: 4 canali con multiplexer analogico guadagno fisso range 0-5 V uni¬ 
polari. - Stabilità di conversione = 50 ppm / C. • Tempo di conversione 
10 millisecondi per canale. ■ Non linearità + / — 0.1% fondo scala. • Pro¬ 
tezione input fino a + 50 V. Tecnica di conversione: integrazione. 

Mod.: XAD-2 - n. catalogo: 060161 
A / D converter 12 bit con ingressi a guadagno variabile, ingressi a gua¬ 
dagno fisso e 2 reed relays. ■ Sezione A / D converter: 3 canali con multi¬ 
plexer analogico con guadagno fisso 0-5 V unipolari. 2 canali con 
multiplexer analogico ingressi differenziali con guadagno variabile pro¬ 
grammabile da un range di 0-10 mV ad un range di 0-2.5 V fondo scala 
in step di ragione 2 da 1 a 128. 

Mod.: 11 04 - n. catalogo: 060162 

A / D converter 12 bit high-speed con ingressi differenziali a guadagno 
variabile. Numero canali: 8 • ingressi: completamente diffrenziali da + / — 
0-10 mV a + / - 10 V. • Risoluzione: 12 bit ■ Tempo di conversione: 25 
microsecondi a 12 bit, 15 microsecondi a 8 bit ■ Guadagno: programma- 
bile in step binari da 1 a 128. 



Mod.: A/D D/A 12 bit - n. catalogo; 060163 
A / D converter 16 canali 12 bit veloce con D / A converter veloce 12 bit. 
Sezione A I D con verter - Numero canali: 16 ■ Ingressi: unipolari - Tensio¬ 
ne di ingresso: 0-9 V a guadagno fisso • Tempo di conversione: 60 mi¬ 
crosecondi / canale • Sezione D / A converter: 1 canale di uscita - Livello 
di uscita: regolabile da 0-4.5 V a 0-9 V tramite trimmer multigiri • Polari¬ 
tà: unipolare o bipolare tramite jumper on-board. Settling time tipico: 1 
microsecondo. 

Mod.: A/D converter 16 canali 8 bit • n.catalogo:060165 
A / D converter veloce ed economico - Canali: 16 unipolari a guadagno 
fisso • Tensione ingresso: 0-5 V • Tempo di conversione: 100 microse¬ 
condi/canale. 

Mod.: A/ A DI A 8 bit - n. catalogo: 060166 
A / D converter 16 canali 8 bit con D / A converter 1 canale 8 bit - Sezione 
A / D converter: • Risoluzione: 8 bit - Numero canali: 16 • Ingressi: unipo¬ 
lari a guadagno fisso • Sensibilità ingressi: 0-5 V • Tempo di conversio¬ 
ne: 100 microsencondi / canale ■ Sezione D / A converter: Numero canali: 
1. Risoluzione: 8 bit • Output: unipolare, 0-5 V • Tempo di conversione: 
1 microsecondo. 

Mod.: DI A converter 8/16 bit con output TTL - n. ca¬ 
talogo: 060164 

D / A converter 8 bit 2 canali con possibilità di miscelazione tensioni out¬ 
put e 2 canali output a livello TTL • Sezione D / A converter • Risoluzio¬ 
ne: 8 o 16 bit ■ Numero canali: 2 a 8 bit o 1 a 16 bit ■ Tensione uscita: 
0-10 V floating, regolabile con trimmers multigiri - Settling time: 1 mi¬ 
crosecondo - Commutazione canali: via software, tramite multiplexer ana¬ 
logico • Sezione TTL port: Numero porte: 2 • Output: livello TTL 
compatibile, sink 20 mA, totem-pole. 

Parallel Port Interface - n. catalogo 050121 
L’interfaccia PARALLEL PORT è una scheda di interfaccia parallela ge¬ 
neralizzata con capacità di servire sino a 24 porte 1/0. 

Essa sfrutta le doti di programmabilità dell’8255 INTEL lasciando all’uti- 
lizzatore la specializzazione delle porte I/O. 


A/D D/A CONVERTER PER IBM PC compatibile. 


Mod.: A/D D/A converter 12 bit - n. catalogo: 095163. 

A / D D / A converter 12 bit 16 canali con D / A converter 12 bit singolo 
canale - Sezione A / D converter • Risoluzione: 12 bit (4096 punti) • Nu¬ 
mero canali: 16 con multiplexer analogico • Velocità conversione: 25 mi¬ 
crosecondi/canale - Ingressi: unipolari a guadagno fisso - Tensione 
ingressi: 0-9 V aggiustabile con trimmer multigiri ■ Sezione D / A conver¬ 
ter. ■ Risoluzione: 12 bit (4096 punti) ■ Tensione uscita: 0-9 V aggiustabi¬ 
le con trimmer multigiri - Modo uscita: unipolare o bipolare (selezionabile 
con jumper) • La schedina è dotata di connettore I / 0 tipo CANNON DB25 
femmina, e viene fornita con manuale operatore in lingua inglese e di¬ 
schetto dimostrativo. 

RICHIEDETE CATALOGO: 

OLTRE 90 PRODOTTI PER APPLE E IBM 

HI tIlecomun^cazioni 

TORINO - VIA ORMEA, 99 • TEL. 011/655.865 
CONDIZIONI PARTICOLARI PER DEALER E HOBBISTI 
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Scrivere un programma compiuto in una sola linea? 

È possibile, e appassionante. 

Eccoli, a puntate, oppure tutti insieme su dischetto. 



Cento programmi 
di una linea sola 


N egli Stati Uniti li chiamano 
One-liners e sono persino og¬ 
getto di gare di bravura appassionanti: 
non è facile impacchettare in una sola 
linea un numero di istruzioni sufficien¬ 
te a farne un vero programma, valido 
anche se brevissimo. Per scriverli (e 
anche per trascriverli) occorre tener 
presente qualche piccolo trucco: non si 
devono battere gli spazi, salvo quelli 
compresi fra le virgolette (") e invece 
dell’istruzione PRINT occorre battere 
il punto interrogativo (?). Chi volesse 
produrne di suoi, inoltre, ricordi di 
evitare l’istruzione IF, che normal¬ 
mente fa saltare alla linea successiva se 
la condizione posta non risulta vera, 
ignorando il resto della riga, quando 
negli One—liners di riga deve esserce¬ 
ne una soltanto, per definizione. Uni¬ 
ca eccezione ammessa: una seconda 
riga di REM per ricordarsi di che 
One-liner si tratta. 

La loro brevissima lunghezza non 
deve però trarre in inganno: non sono 
dei giochini. Costringendo a una sinte¬ 
si estrema rappresentano un formida¬ 
bile esercizio di programmazione, e 
molto spesso nascondono delle routi¬ 
ne di grande interesse. Nulla impedi¬ 
sce naturalmente di utilizzare queste 
routine all’interno di altri programmi, 
o di costruire programmi ad hoc som¬ 
mando e modificando adeguatamente 
più One-liners. Applicando ne ha 
raccolti cento, e ne inizia la pubblica¬ 
zione da questo numero. Chi li volesse 
tutti e cento insieme, senza digitarli, 
può richiedere il dischetto compilando 
il tagliando del Disk Service (vedere le 
modalità a pagina 128). 

Il primo One-liner di Applicando è 
un programma di tipo HELLO: salva¬ 
to appunto come Hello, mostra il cata¬ 
logo del dischetto, indica la quantità di 
memoria libera, chiede il programma 
in Basic che si desidera far girare, e lo 
avvia. 


Listato I ^ 


IO HOME ; INVERSE : PRINT * 1 - 

-one-uner MENU- 

.•: : NORMAL : PRINT 'B 

YTES LIBERI B : FRE (0) + 655 
36.: PRINT , V0L=254 B : POKE 3 
4,2: PRINT CHRI (4)"CATAL0G 
B : INPUT 1 QUALE PROGRAM? * 
:A$: TEXT : PRINT mi (4)' 
RUN ‘;AI 


senza usare apparentemente la funzio¬ 
ne FLASH. 


Listato 4 ^ 


1 TEXT : HOME : FOR J = 0 TO 49; 
VTAB 12: HTAB IO: PRINT *FL 
ASHING": : HTAB 21: POKE 50,2 
55 - 192 M PEEK (50) = 255 
} : PRINT 'ALTERATO' : FOR p = 
0 TO 200: NEXT : NEXT : HOME 


Il secondo è una routine che potrà 
certamente far comodo: scrive tutto 
ciò che arriva dalla tastiera mantenen¬ 
dolo centrato in mezzo allo schermo. 
Battendo Return si passa alla seconda 
riga, sempre centrata, e così via. 


Tutti sanno che l’Apple // può pro¬ 
durre musica. Questa routine dimo¬ 
stra quanto può essere facile otte¬ 
nerla. 


Listato 2 ^ 


Listato 5 y 


1 PRINT :BI = *": FOR A = 1 TO 2 
: GET A*:B$ = B* ♦ A$:L = LEN 
<»>: 0N (Al = CHRI (13)) OR 
(L = 38) GOTO 1: CALL - 998 
: HTAB INT ((40 - L) / 2): PRINT 
BI:A = A - 1: NEXT 


Spesso però gli One-liners sono 
programmini di grafica: eccone uno 
dagli effetti di caleidoscopio. Occorre 
qualche secondo di pazienza prima 
dell’ inizio dello spettacolo. 


FOR X = 770 TO 790: READ Y: POKE 
X.Y: NEXT : DATA 173.48.192 
,136,208,5,206,1,3,240,9 202 
,208,245.174,0.3,76.2.3.96.0 
, 195, D,171.E,I52.F,144,6,128 
,A.J14,6,102.0,96: FOR A = 1 
TO 8: READ A*,B: p 0KE 768,8 
: POKE 769.150: PRINT Al: 1 .. 
RITCH=* ;B; ,LENGHT=90 B : CALL 
770: NEXT 


Ecco un’altra fantasmagoria grafica 
racchiusa in pochissime istruzioni. 


Listato 3 


1 T = 2:A = 140:B = 95: HGR2 :N = 
80:0 = A:D = 94: HC0L0R= 4:M 
= 130: FOR K = 1 TO !00:X = 

INT ( RND (1) * M + A):Y = 

INT ( RND (1) * N ♦ B): FOR 

I = 1 TO N STEP T:X = X - T: 

Y = Y - T:E = T * B - Y:F = 

T * A - X: HPLOT C,D TO X.Y: 
HPL0T G,D TO F.Y: HPLOT 6,H 
T0 F.E: HPLOT C,H TO X.E: NEXT 
: HC0L0R= 7 * RND (1):C = X 
:D = Y:H = E:G = F: NEXT 


Quello che segue è una routine che 
dimostra un modo interessante di far 
lampeggiare del testo sullo schermo 


Listato 6 


10 L = 80: FOR I = 0 TO 1 STEP 0: 

HGR : HCGL0R= 3: HOME : FOR 
J = 0 TO 80 STEP 5:L = L - ( 

RND (1) > .5) « (L - INT ( 

RND (1) * 160) ) sK = 160 - L 
: HPLOT J.80 TO K,K TO 80.J TO 
L.K TO 160 - J.80 T0 L,L TO 
80,160 - J TO K.L TO J.80: NEXT 
J: LH’AB 23: PRINT "BATTI UN 
TASTO GET Al: NEXT I 


Per la categoria utility, ecco una bel¬ 
lissima routine per la conversione dei 
numeri di base decimale in esadecima- 
le, in binario, eccetera, e viceversà. 
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TEST 


TESI 


Sei proprio sicuro che il tuo computer 
sia sempre al sicuro? 

Siete certi di aver messo al riparo il vostro computer dai più comuni rischi 
e incidenti che possono capitargli? Rispondete sinceramente 
a queste 7 domande, sia che abbiate già sottoscritto una polizza assicurativa, 

sia che ancora non l'abbiate fatto. 





Andate al mare, in montagna, a casa di un 
amico e vi fermate lungo il tragitto per una 
commissione, un ladro vi ruba il computer dal 
portabagagli. Pagate voi? a Sì a no 



Partite per una vacanza e decidete di portare 
con voi il vostro personal. Andate in 
albergo, in una casa in affitto o nella villa 
di vostro fratello, e succede qualcosa al vostro 
computer. Pagate voi?a Sìa No 




Siete nel bei mezzo di un applicazione 
complicata. Non volete interrompervi ma 
nemmeno rinunciare a un whisky on thè rocks 
o al caffè. Ahimè, il liquido finisce sulla 
tastiera mandando in cortocircuito il 
computer. Pagate voi?a Sìa No 



Vostro figlio si avvicina al computer senza 
essere visto e comincia a picchiarci sopra con 
un oggetto più duro del vostro computer. 
Pagate voi? a sì a No 




Se qualche vostro amico o una vostra 
impiegata si fa male maneggiando il vostro 
personal, pagate voi?a sìa no 


RISPOSTE 

7 No. il vostro computer è davvero al sicu¬ 
ro. Bravi. 

6 No e 1 Sì. valutate bene se II caso in cui 
avete risposto sì ha scarse possibilità di 
verificarsi. Potrebbe valere la pena dì ri¬ 
schiare e di lasciare le cose come stanno. 
Da 2 a 7 Sì. Affrettatevi a leggere il box qui 
sotto, perché II vostro computer non è 
affatto al sicuro, il che potrebbe causarvi 
un sacco di fastidi e farvi perdere un muc¬ 
chio di soldi. 


e applicando 

vi mettono al sicuro 

Sicuramente sarete convinti che esista già da tempo una 
polizza per assicurare il personal computer Non è cosi 
Finora tutte le compagnie di assicurazione hanno creato 
polizze nate per garantire i grossi centri di elaborazione 
dati e solo in seguito hanno adattato queste polizze alle 
esigenze di coloro che vogliono assicurare il proprio perso 
nai Ma una polizza adattata non può certo paragonarsi a 
una polizza nata apposta per soddisfare le esigenze dei 
possessore di un personal computer Applicando in colla¬ 
borazione con la Ras una delle piu importanti compagnie di 
assicurazioni italiane ha studiato a fondo il problema E 
nata cosi là Polizza Applicando la prima e per il momento, 
unica assicurazione che copra tutti I rischi relativi al posses¬ 
so e all'uso di un personal e delle sue periferiche (stampan 
ti drive, video.ecc) Applicando è orgogliosa di presentarla 
in anteprima ai suoi lettori e di offrire loro la possibilità di 
sottoscriverla nella maniera più semplice Basta leggere 
attentamente le condizioni pubblicate alla pagina seguen¬ 
te compilare il tagliando e spedirlo a Editronica srl Polizza 
Applicando Corso Monforte 39 20122 Milano Avrete cosi 
risolto per sempre tutti i vostri problemi 




































Condizioni generali di assicurazione. 


1) Premessa 

a) l'adesione alla presente polizza è riservata ai proprie¬ 
tari di un Personal Computer il cui valore stabilito 
come alla Condizione 6) sia superiore a L. 2.500.000 
IVA compresa; 

b) l'adesione alla presente polizza da parte dei proprie¬ 
tari di personal Computer avverrà a mezzo invio di 
apposita cartolina con il relativo importo di premio; 

c) l'intestatario della cartolina sarà considerato a tutti gli 
effetti come l’Assicurato; 

d) la garanzia sarà .operante dalle ore 24 del giorno di 
spedizione della cartolina, risultante dal timbro posta¬ 
le. La copertura avrà durata un anno, sempreché la 
data di inizio della garanzia sia compresa nel periodo 
di validità della convenzione; 

GARANZIE PRESTATE E CONDIZIONI DI 
ASSICURAZIONE 

2) Sez. I - Danni materiali 

Derivanti da: 

a) incendio, opera di spegnimento e salvataggio, fulmi¬ 
ne, esplosione, scoppio, implosione; 

b) acqua e liquidi in genere, inondazione, alluvione, 
trombe, uragani, gelo, ghiaccio, neve, grandine, va¬ 
langa, caduta di massi e altri simili eventi; 

c) superamento del muro del suono, caduta di aeromo¬ 
bili o cose da essi trasportate; 

d) corto circuito, variazione di corrente, sovratensione 
arco voltaico, deficienze di isolamento, effetti di elet¬ 
tricità statica, induzione; 

e) imperizia, negligenza, errata manovra, nonché azioni 
dolose e colpose in genere; 

f) trasporti e smontaggi connessi con lavori di pulizia o 
di manutenzione; 

g) furto e rapina; 

h) terremoto, maremoto od eruzioni vulcaniche; 

i) persone che prendono parte a tumulti popolari, scio¬ 
peri , sommosse e che perpetrino indivudualmente od 
in associazione atti di terrorismo o sabotaggio verifi¬ 
catisi in occasioni di serrate. 

3) Sez. Il - Responsabilità Civile Terzi 

L’assicurazione si intende inoltre prestata per la Respon¬ 
sabilità Civile derivante all’Assicurato dalla proprietà e 
dall’uso personale del Computer assicurato identificato 
nel certificato di assicurazione. 

! massimali di garanzia si intendono fissati in: 


L. 100.000.000 per sinistro con il limite di 

L. 100.000.000 per ciascuna persona deceduta o che 
abbia subito lesioni personali 

L. 100.000.000 per danni a cose e/o animali. 

4) Esclusioni 

La Società non è obbligata per i danni dovuti a: 

- dolo dell’Assicurato; 

- corrosione, deperimento, logoramento che siano con¬ 
seguenza del normale uso o funzionamento o causati 
dagli effetti graduali degli agenti atmosferici; 

- per i quali deve rispondere il fornitore, venditore o loca¬ 
tore degli enti assicurati per legge o per contratto, o per 
inadeguata manutenzione; 

- causati da difetti di materiale o di costruzione che esi¬ 
stevano già all’atto della stipulazione della polizza ed 
erano a conoscenza dell’Assicurato; 

- causati direttamente od indirettamente da avvenimenti ‘ 
bellici, sommosse militari, invasioni, adozione di misure 
da parte di potenze straniere, rivoluzione, ribellione, 
insurrezione, assunzione od usurpazione di potere di 
carattere*militare, sequestri; 

- verificatisi in occasione di esplosione, radiazione nu¬ 
cleare o di contaminazione radioattiva; 

- uso improprio del bene (mancato rispetto delle norme 
di impiego dettate dal costruttore); 

- danni estetici (quelli interessanti l’involucro esterno che 
non sia conseguenza di un danno risarcibile a termine 
della presente polizza); 

- guasti casualmente riconducibili ad interventi, a ripara¬ 
zioni e/o modifiche effettuate da un centro non autoriz¬ 
zato dalla casa costruttrice della macchina; 

- danni indiretti in genere. 

5) Operatività della garanzia 

a) La garanzia è operante solamente se gli enti assicurati 
sono ubicati presso il domicilio dell’Assicurato od in 
luoghi diversi da questi se in possesso dell’Assi¬ 
curato. 

La garanzia è pure efficace se i beni si trovano sull’au¬ 
tovettura in uso all’Assicurato, salvo i seguenti casi: 

- qualora l’autovettura venga lasciata incustodita dal¬ 
le ore 22 alle ore 6; 

- qualora l’autovettura regolarmente chiusa a chiave 
venga lasciata incustodia dalle ore 6 alle ore 22 e gli 
enti assicurati non opportunamente occultati nel 
bagagliaio. 


c) Limitatamente ai danni di rottura la garanzia è effica¬ 
ce solamente nel caso questi siano dovuti ad un inci¬ 
dente in cui rimanga coinvolto anche il veicolo in uso 
dell'Assicurato che trasportava i beni assicurati. 

d) Per gli enti per i quali non è stato stipulato il contratto 
di manutenzione e/o assistenza con la casa costrut¬ 
trice e/o ditte di essa mandatarie qualora l’ente ri¬ 
chieda per norma del fornitore detto contratto, la 
Società non risponde dei danni verificatisi in conse¬ 
guenza di guasto meccanico e/o elettrico salvo che 
l’Assicurato provi che tale guasto sia causato da even¬ 
to esterno agli enti, assicurati o da incendio originato 
da uno di questi enti. 

6) Somma Assicurata 

La somma assicurata per ciascun ente deve corrispondere 
al costo di rimpiazzo, ossia al prezzo di listino della casa 
costruttrice ed escluso ogni sconto o prezzo di favore di 
un ente nuovo, eguale od equivalente per caratteristiche, 
prestazioni e rendimento economico. 


7) Premio 

Per ogni singola applicazione è stabilito un premio forfet¬ 
tario omnicomprensivo così calcolato: 


Somma assicurata 

Premio 

da 2 500 000 a 3 000 000 

L. 50.000 

da 3.000 000 a 5 000 000 

L. 65 000 

da 5 000 000 a 7 000 000 

L. 80 000 

da 7 000.000 a 10.000.000 

L. 100 000 

da 10.000.000 a 15.000 000 

L. 120 000 

da 15.000 000 a 20.000.000 

L. 150.000 


8) Franchigia 

per ogni e qualsiasi danno che colpisca gli enti assicurati è 
stabilita una franchigia di: 

L. 50.000 per somma assicurata fino a L. 5.000.000 

L. 100.000 per somma assicurata superiore a 

L. 5.000.000 

Per sinistri causati da eventi come ai punti g) ed h) delle 
garanzie prestate, la Società liquiderà i danni sotto dedu¬ 
zione di uno scoperto pari al 20% della somma assicurata, 
col minimo delle franchigie sopra stabilite. 

9) Rinvio alle norme di legge 

Per tutto quanto non è qui diversamente regolato, valgono 
le norme di legge. 


b) 



applicando 


vi mettono al sicuro 



Si! Desidero assicurare i miei/il mio computer. Inviatemi a stretto giro di posta il certificato emesso dalla Ras. 
L'assicurazione avrà valore a decorrere dalle ore 24 del giorno di spedizione della mia adesione. Per la data fa fede il 
timbro postale. 


COGNOME. 

NOME . 

INDIRIZZO. 

CAP. CITTA' . 


. PROVINCIA. 

. N. 

Assicuro i/il seguente personal: 
Marca e Modello 

N. di matricola 

Valore (IVA compresa) 



Con le seguenti periferiche (stampanti, video, drive, hard disk, ecc) 

Marca e Modello N. di matricola valore (IVA compresa) 


Nel caso non abbiate sufficiente spazio ricopiate su un foglio il testo completo di questo tagliando indicando tutti i prodotti che intendete assicurare. 

Per un totale complessivo di Lire.su cui pago il premio calcolato in base alla tabella riportata qui sopra (su fondoverde). 

Allego assegno non trasferibile di Lire.intestato a Editronica srl, Corso Monforte 39,20l22Milano. 
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Listato 7 ' 


1 INPUT "NUMERO,BASE,NUOVA BASE- 
>':0*,0B,NB: POR I = 1 TO LEN 
<0»)sX = ASC ( MID$ (W.I.l 
)) - 48:X = X - 7 * (X > 9): 

N = N * OB + X: NEXT :N = N ♦ 
,5:LX = LOG <N) / LOG (NB) 
ti : POR I = L7. TO 0 STEP - 1 : 

XX = N / NB * 3 :N = N - XX * 

NB * ];N$ = N* + CHR* (48 + 

XX 4 7 * (XX > 9)): NEXT : PRIMI 
0* s (BASE "OB") = "N$" (BASE 
"NB")" 


Un modo ingegnoso di animare il 
testo sullo schermo, per aggiungere 
pepe ai vostri programmi. 


Listato 8 \ 


10 TEXT : HOME : INPUT "PAROLA 1 * * * * * 7 " 
;U»:U = LEN <Uf): POR 2 = 1 
TO 5: POR X = 1 TO (39 - W) 

: HTAB X: PRIMI W$: NEXT :A = 
PEEK ( - 16336) + PEEK ( - 
16336): POR X = (38 - U> TO 
2 STEP - 1: HTAB X: PRIMI U 
il NEXT :A = PEEK ( - 16336 
) + PEEK < - 16336): NEXT 


Grafica in alta risoluzione, anima¬ 
zione e suoni. E il tutto naturalmente 
in una linea sola. Eccola: 



Listato 12 


1 TEXT : HOME :A$ = "APPLICANDO" 

: FOR X = 12 TO 23: HTAB X: VTAB 
X: PRIMI A$: HTAB 24 - X: VTAB 
X: PRINT A$: HTAB X: VTAB 24 
- X: PRIMT A3: HTAB 24 - X: 

VTAB 24 - X: PRIMT A$: NEXT 
: POR D = 1 TO 24: POR Y = 1 
2 TO 23: VTAB D: HTAB Y: PRINT 
A*: VTAB D: HTAB 24 - Y: PRIMT 
A ii NEXT : NEXT 


Un generatore di toni musicali? Ec¬ 
colo: per trascriverlo nel vostro com¬ 
puter occorrono due minuti... 


Volete la routine di imput più corta 
dell’universo? Probabilmente è 
questa: 

Listato 17 

0 B* = B$ ♦ Ai: GEI Mi PRINT A*: 

: ON A$ < > CHR$ (13) GOTO 
0: PRINT A$B$ 

Ancora una gemma musicale. Pro¬ 
vatela. Nel batterla, lasciate uno spa¬ 
zio prima e dopo l’istruzione DATA, e 
ignorate invece tutti gli altri spazi. 


Listato 13 \J 


DATA 141.48,192,164.0,136,192 
,9,208,251,198,1.208,242.198 
.2.208.238,96: POR N = 768 TO 
786: READ A: POKE N.A: NEXT 
: INPUT "TONO,LUN6H.";T,L: POKE 
0.T: POKE 1,0: POKE 2,L: CALI 
768: INPUT mORA <S/N)":G* 

: IP 0$ = "S" THEN RUN 


Ecco un’altra routine per la conver¬ 
sione di numeri esadecimali in deci¬ 
mali. 


Listato 1$ 


v/ 


2 POR I = 768 TO 785: READ A: POKE 
LA: NEXT : FOR I = 1 TO 255 
POKE 773.1: CALL 768: NEXT 
POR I = 255 TO 1 STEP - 1 
POKE 773.1: CALL 768: NEXT 
. RUN : DATA 169,128,133.9, 
160,201,152,170.202.208.253, 
173,48,192,136,208,245,96 


Per la nostra minigalleria d’arte in 
alta risoluzione, ecco un altro capola¬ 
voro: 


Listato 9 




10 POR X = 768 TO 774: READ A: POKE 
X.A: NEXT : POKE 232,0: POKE 
233.3: DATA 1,0,4,0.62,44,0 
: HGR2 : SCALE= 10: POR Y = 


20 TO 160 STEP 20: POR X = 2 
0 TO 250: R0T= X: XDRAU 1 AT 
X,Y:S = PEEK (49200): XDRAU 
1 AT X ,Y: NEXT : NEXT 


Ancora un One—liner grafico, dal 
piacevolissimo risultato: 

Listato IO 


1 HGR2 : FOR 2 = 10 TO 0 STEP - 
.2: FOR X = 10 TO 0 STEP - 
.2:Y = - 10 * COS (3 * SOR 
((X - 5) * (X - 5) 4 (Z - 5) 

* (Z - 5))) / 2 ♦ 50: HPLOT 
X * 20 ♦ Z * 3 ♦ 20.Y ♦ Z * 
10: NEXT : NEXT 


Pensateci bene: l’animazione con 
l’Apple è così semplice che tutti i suoi 
principi sono nascosti in questa linea: 

Listato 11 

10 FOR A = 769 TO 783: READ B: POKE 
A.B: NEXT : HGR : HC0L0R= 5: 

HPLOT 0,0: CALL 62454: H6R2 
: CALL 769: DATA 173.87.192 
,234.173,84,192,234,173,85,1 
92,234,76,1,3 

Per la serie Text Display, ecco una 
routine interessante. Non dimenticate 
di usare il punto interrogativo invece 
dell’istruzione PRINT, e di non batte¬ 
re gli spazi. 


Listato 14 


1 INPUT "NUMERO ESADECIMALE 7 ";H 
N$:HN$ = RI6HT$ ("0000" ♦ H 
NL4):SN = 4096: POR 1 = 1 TO 
4:2 = ASC ( MID* df» f I.l)) 
:N = N 4 SN * <Z - 48 - 7 * 
((Z - 48) > 10)) :SN = SN / 1 
6: NEXT : PRINT N:N = 9: RUT4 


Ma anche fra gli One—liner ci son 
quelli più lunghi e quelli più corti. 
Questo è forse il più corto in assoluto. 
Produce interessanti effetti sullo 
schermo. 


Listato 15 


10 POR I = 1 TO 1000: POKE - 16 
299,0: HC0L0R= 3: POKE - 16 
300,0: NEXT 


Una utility per creare disegni sullo 
schermo in Lo-Res. I tasti 
I-J-K-M (I-J-K e virgola sull’Ap¬ 
ple Ile) servono per il movimento, il 
tasto C cambia il colore e il tasto Q 
permette di uscire dal programma. 
Impartire al computer un’istruzione 
GR prima del RUN. 

Listato 16 


1 :: POKE 2053,58: VTAB 21: CALL 
- 868: INPUT "C0L0RE=";C: 0N 

(C < 0 OR C > 15) GOTO 1: C0L0R= 

C: POR Z = 0 T0 1: GEI A$:Z = 

(Ai = "C" OR Ai = "Q'):X = X 
♦ (Ai = "K s > * (X < 39) - ( 

Ai = "J") « (X > 0):Y = Y ♦ 

(Ai = "M") * (Y < 39) - (Ai = 
"I") * (Y > 0): PLOT X,Y: NEXT 

Z: 0N (Ai = "C") GOTO 1: POKE 
2053,136: PRINT "FINE" 


Listato 19 


10 POR 1 = 768 T0 777: READ P: POKE 
1,P: NEXT : POKE 232,0; POKE 
233,3: HGR2 : HC0L0R= 3: POR 
A = 1 TO 19000:S = INT ( RND 
(1) i 5) 41: FOR R = 1 TO 6 
5 STEP S: RQT= R: SCALE= R: DRAU 
1 AT 139,95: NEXT : FOR R = 

66 T0 130 STEP S: R0T= R: SCALE= 
131 - R: XDRAU 1 AT 139,95: NEXT 
: NEXT : DATA 1,0,4,0,33,63 
,54,45,4, 


Un gioco, un vero gioco, natural¬ 
mente in una linea sola. Guidate l’auto 
senza farla sbattere contro i margini 
della pista usando il punto (.) e la bar¬ 
retta (/) per farla girare a destra o a 
sinistra. Fate partire il programma con 
un comando HOME:RUN. 


Listato 20 


10 U = (U = 0) * 10 4 U - .01 M 
U < 3):K = PEEK (49152) :X = 

X - (K = 174) 4 (K = 175) 4 
(X = 0) * 10:L = (L < 4) * 2 

4 L 4 SGN ( RND (1) - .5) - 

(L 4 U > 30): C0L0R= 12: HLIN 
0,L - 1 AT 47: HLIN L 4 U 4 

1,34 AT 47:C = SCRN< X - 1, 

21): HTAB (X): VTAB 11: PRINT 
"V;: HTAB 37: VTAB 24 :T = T 
4 1: PRINT T: IP C < > 12 THEN 
10 


Cento programmi one liner sono dispo¬ 
nibili su dischetto. I prezzi e le modalità 
d’ordine di questo e degli altri dischetti 
disponibili sono riportati nella rubrica 
Disk Service. 
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Vi piacciono le regate? 0 preferite esplorare le caverne dell’Olimpo? Oppure vorreste 
avere sul vostro schermo il fantastico gioco della scimmia che scappa arrampicandosi sulle 
pareti lisce di un grattacielo? Siete invece tipi riflessivi e vi dilettate di musica? Non 
preoccupatevi, qui c’è sicuramente quello che fa per voi. Per gli amanti di tanti giochi tutti 
insieme è disponibile una raccolta. Per chi, infine, vuole migliorare le proprie capacità di 
programmatore, ecco tutti i trucchi del Basic su dischetto. E a prezzi eccezionali. 



REGATTA. Un gioco entusiasmante che tara 
impazzire marinai esperti e meno esperti di 
qualunque età Ogni concorrente ha a 
disposizione una barca e un circuito. Poi ci 
sonoi venti, gli ostacoli, gli imprevisti... Una 
grafica realistica vi farà volare tra le onde. 
Paddle o Joystick opzionali. Dischetto con 
programma e manuale in elegante 
confezione a sole 40.000 lire. 


CAVES OF OLYMPUS. Oltre a una grafica a 
colori ultraprofessionale, questo gioco di 
abilità sfodera suoni ed effetti speciali di 
qualità nettamente superiore. Divertente, 
intrigante e irresistibile. Non richiede né 
paddle né joystick. Dischetto con 
programma e manuale in elegante 
confezione a sole 40.000 lire. 


APE ESCAPE. Una scimmia è fuggita dallo 
zoo e si arrampica sulle finestre di un 
grattacielo. Elicotteri le ronzano attorno e il 
guardiano dello zoo la insegue. Riuscirà a 
raggiungere il tetto e la libertà? Tutto dipende 
da quanto abili siete. Grafica a colorì. Non 
richiede né paddle né joystick. Dischetto con 
programma e manuale in elegante 
confezione a sole 40.000 lire. 




MUSIC GAMES. 12 programmi educativi e 
divertenti sul filo delle 7 note. Senza bisogno 
d’altro, il vostro Apple si tramuterà in un 
docile strumento musicale dal quale 
imparare e col quale divertirsi. Sono richieste 
le paddle o il joystick. Dischetto con 
programma e manuale in elegante 
confezione a sole 40.000 lire. 


APPLEGAMES.il giochi: Flip-Flop, 
Mastermind, Towers, Sherlock’s home, 
AttackofthèZargons, Phaser Practice, 
Acey-Ducey, Big government, Tic-Tac-Toe, 
Qubic, Depthcharge. E tre programmi di 
utilità: Shapetablegenerator, Opening 
ceremonies, Master catalog. Per alcuni 
giochi sono richieste le paddle o il joystick. 
Dischetto con programma e manuale in 
elegante confezione a 50.000 lire. 


BASIC TRICKS FOR THE APPLE. 35 routine 
che renderanno molto più professionali i 
vostri programmi in Basic e che vi sarà 
facilissimo imparare utilizzando il manuale e 
il dischetto offerti in elegante confezione a 
sole 50.000 lire. 


K 


Cognome e nome. 

Via.N. 

Cap.Città .Provincia. 

Scelgo la seguente formula di pagamento: 

□ Allego assegno non trasferibile di lire.intestato a Editronica srl, 

Corso Monforte 39, 20122 Milano 

□ Allego ricevuta di versamento di lire.sul conto corrente postale 

n. 19740208, intestato a Editronica srl, Corso Monforte 39, 20122 Milano 


Sì! Inviatemi subito, senza aggravio di spese 
postali, il o i programmi contrassegnati con 
una crocetta. 

□ REGATTA. 40.000 lire. 

□ CAVES OF OLYMPUS. 40.000 lire. 

□ APE ESCAPE. 40.000 lire. 

□ MUSIC GAMES. 40.000 lire. 

□ APPLE GAMES. 50.000 lire. 

□ BASIC TRICKS FOR THE APPLE. 

50.000 lire. 


Data 


Firma 


























0, Programmare è divertente, creativo, affascinante. Ma 
talvolta bisogna tornare sul listato per correggere e 
modificare qualcosa. Allora può capitare di pentirsi di aver 
preferito la compattezza alla chiarezza. A meno che... 


Lista tutto in vista 


A ppena si prende una certa fami¬ 
liarità con l’Applesoft ci si accor¬ 
ge della possibilità di dare istruzioni 
multiple in ogni linea di programma. 
Tale attraente possibilità diventa poi 
quasi indispensabile nei programmi 
più complessi e lunghi. Infatti, oltre a 
diminuire le dimensioni in memoria 


del programma, l’Applesoft ha anche 
la non trascurabile conseguenza di un 
considerevole miglioramento del tem¬ 
po di esecuzione. 

L’uso massiccio delle istruzioni mul¬ 
tiple ha però degli inconvenienti prati¬ 
ci che non possono essere trascurati. 
In primo luogo rende i programmi in 


Applesoft difficili da capire anche per 
l’autore del programma rendendogli 
la vita difficile al momento di modifi¬ 
care la sua opera con qualche variazio¬ 
ne rispetto allo schema originale. In 
secondo luogo può facilmente "oscura¬ 
re" la struttura logica di un programma 
in Applesoft. 
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Listato 1 - PRETTYLISTER - APPLESOFT 


63000 


DOS 3.3 filili 
ProDOS <#11! 
APPLE //e #111 
APPLE //e #111 

PRINT ! PRINT "PRETTYLISTER AWIATO" : PRINT CHR$ (4; 
; n PR«r : PRINT CHR$ <9) s , 80N" :FF = 12:PL = 58:LL = 6 
0:NT = 106: DIM TK$(NT):AD = 5345ó:SP$ = CHR$ (32): 
FOR I = i TO 5:85$ = 65$ ♦ SPI: NEXT I : FOR I = 0 TO 


IO 

REM 

********************** 

11 

REM 

* 

PRETTYLISTER 

* 

12 

REM 

* 

DI BRYfiN BROUN 

* 

13 

REM 

* COPYRIGHT (C) 1985 

* 

14 

REM 

* 

BY APPLICANDO 4 

* 

15 

REM 

* 

MICROSPARC, INC 

* 

16 

REM 

********************** 


NT 

63010 C = PEEK (AD): IF C < 128 THEN TK$(I) = TK$<1) ♦ CH 
R$ (C):AD = AD + 1: GOTO 63010 

63020 TK$(I> = TK$(I) 4 CHFr$ (C - 128):AD = AD 4 1; NEXT I 
:PG = 1:NP = 2: PRINT TAB( 70>:miNA B ;PG: PRINT : 
NA = PEEK (103) 4 256 * PEEK (104) 

63030 NL = PEEK (M) + 256 * PEEK (NA + 1): IF NL = 0 THE 
N GOTO 63290 

63040 LN = PEEK (NA + 2) 4 256 * PEEK (NA 4 3): IF LN > 

= 63000 THEN GOTO 63290 
63050 I = 4 

63060 C = PEEK (NA 4 I); IF C = 0 THEN NI = 0: 60SUB 63160 


:NA = NL: GOTO 63030 

63070 IF C < 128 THEN CD$ = CD$ 4 CHR$ (0: GOTO 63100 
63080 IF CD» < > ■" AND RIGHT$ (CD$,1) < > SP$ THEN CD$ 

= CD$ 4 SPI 

63090 CD$ = CD$ 4 TK$(C - 128) 4 SP$ 

63100 IF C = 34 THEN IQ = NOT (IQ): GOTO 63150 
63110 IF (C = 58 AND NOT IQ) OR C = 196 THEN GOSUB 63160: 
GOTO 63150 

63120 IF C = 173 THEN NI = NI 4 1 : GOTO 63150 


63130 IF C = 129 THEN NF = NF 4 \- GOTO 63150 

63140 IF C = 130 THEN NS = 1:NF = NF - 1 

63150 I = 1 4 l : GOTO 63060 

63160 IF LN < 0 THEN PRINT B5$;: GOTO 63180 

63170 PRINT RIGHT$ (85$ 4 STR$ (LN) ,5) : :LN = -1 

63180 IF NS THEN IN = IN - 3:NS = 0 

63190 PB = 0 :JN = IN : IN = 1 4 3 * (NF 4 NI) 

63200 LC = LEN (CD$):LP = JN 4 LC: IF LP > LL THEN GOTO 6 

3230 

63210 IF PB = 1 THEN PRINT B5$: 

63220 FOR J = 1 TO JN: PRINT SP$;: NEXT J: PRINT CD$:CD$ = 
GOSUB 63270: RETURN 

63230 FOR K = (LL - JN) TO 1 STEP - 1:A$ = M1D$ (CD$,K.l) 
: IF (A$ = SP$ OR A$ = CHR$ (42) OR A$ = CHR$ (43) 
OR A$ = CHR$ (44) OR A$ = CHR$ (45) OR A$ = CHR$ < 
47)) THEN GOTO 63250 
63240 NEXT K 

63250 IF PB = 1 THEN PRINT 85$: 

63260 PB = 1: FOR J = 1 TO JN: PRINT SP$;: NEXT J: PRINT L 
EFT$ (CD$,K):CD$ = RI6HT$ (CD$,LC - K): GOSUB 63270: 
GOTO 63200 

63270 NP = NP 4 1: IF NP > = PL THEN NP = 2: PRINT CHR$ ( 
FF):PG = PG 4 1; PRINT TAB( 70):"PAGIf4A ":PG: PRINT 
63280 RETURT4 

63290 PRINT CHR$ (FF): PRINT CHR$ (4):"PR«0": PRINT "PRET 
TYLISTER COMPLETO": FOR J = 1 TO 3: PRUTT CHR$ (7): 
NEXT J 
63300 END 

63310 REM ** AGGIUNGE IN CODA AL PROGRAM PRINCIPALE 

63320 REM ** ESEGUE CON RUN 63000' 

63400 PRINT CHR$ (4)"OPEN PRETTY": PRINT CHR$ (4) B WRITE P 
RETTY": POKE 33.33: LIST 63000,63300: PRINT : PRINT 
CHR$ (4) "C-LOSE PRETTY" : TEXT : END 


Gli studiosi di informatica hanno re¬ 
centemente sottolineato l’importanza 
di una buona struttura del programma 
sia per la realizzazione e il debugging 
dei moduli che per facilitare la loro 
modifica. I linguaggi di computer di 
basso livello come l’Applesoft non si 
prestano a un formato strutturato. È 
però possibile fare listati di programmi 
in Applesoft che si prestano ad alcune 
delle tecniche strutturate che vengono 
attualmente usate nel campo dei com¬ 
puter, come un rientro dei loop 
FOR-NEXT e dei blocchi IF-T- 
HEN. Simili listati rappresentano visi¬ 
vamente la struttura logica del pro¬ 
gramma in Applesoft, rendendo certi 
errori logici più facili da identificare, 
oltre a renderne più facile la lettura. 
Per sopperire a queste naturali caren¬ 
ze dell’Applesoft è stato realizzato il 
programma PRETTYLISTER. 

Caratteristiche 

La routine in Applesoft visibile nel 
listato 1 è una versione modificata del¬ 
la routine PRETTYLISTER di Paul 
Sand (Washington Apple Pi Newslet¬ 
ter, Novembre 1980). La routine origi¬ 
nale ha queste caratteristiche (tutte 
comprese nel programma del listato 
1 ): 

1) Stampa una sola istruzione per linea 

2) Rientra i loop FOR-NEXT, perfi¬ 
no quelli nidificati 


Listato 2 ■ PRETTYLISTER ■ ASSEMBLER 

SOURCE FILE: PRETTYLISTER ASM 


NEXT 0BJECT FILE NANE IS PRETTYLISTER ASM.QBJ0 
1 ORG $6000 


6000: 

6000: 

1 

2 


ORG 

$6000 

DOS 3.3 ‘♦■IH 

6000: 

3 

************************** ProDOS #HI 

6000: 

6000: 

4 

5 

* 

* 

PRETTYLISTER 

{ APPLE .//e +1111 

6000: 

6 

* 



» APPLE //c 

6000: 

7 

* COPYRIGHT (0 1985 

* 

6000: 

8 

* BY APPLICANDO & 

* 

6000: 

9 

* MICROSPARC, INC. 

* 

6000: 

10 

* 

BRYAN 

BROUN 

* 

6000: 

11 

* 



* 

6000: 

12 

************************** 

0019: 

13 

TLINE 

EQU 

$19 

; INDI RI 220 DEL SEGMENTO STAMPABILE 

0018: 

14 

SADR 

EQU 

$18 

;INDI RI 220 DELLA LINEA CORRENTE 

001D: 

15 

NXLIN 

EQU 

$1D 

; INDIRIZZO DELLA LINEA SEGUENTE 

0067: 

16 

ASTR 

EQU 

$67 

: INDIRIZZO PARTENZA PROGRAM BASIC 

Q0F9: 

17 

CURTAB 

EQU 

$F9 

; INDIRIZZO TAVOLA DEI TOKEN 

OOFB: 

18 

ADLPRT 

EQU 

$FB 

; INDIRIZZO PARTENZA LINEA STAMPABILE 

DODO: 

19 

TKADA 

EQU 

$D0D0 

; PARTENZA PRIMA TAVOLA DEI TOKEN 

D1CB: 

20 

TKADB 

EQU 

$D1CB 

; PARTENZA SECONDA TAVOLA DEI TOKEN 

F94A: 

21 

PRLB2 

EQU 

$F94A 

; STAMPA SPAZI VUOTI 

FC58: 

22 

HOME 

EQU 

$FC58 

; PULISCE LO SCHERMO 

FD8E: 

23 

CROUT 

EQU 

$FD8E 

;RIT0RN0 CARRELLO 

FDED: 

24 

COUT 

EQU 

$FDED 

; STAMPA UN CARATTERE 

FE95: 

25 

QUTPORT EQU 

$FE95 

; IMPOSTA OUTPUT 

6000: 

26 

) 




6000:A5 68 

27 


LDA 

ASTR+1 

; BYT E ALTO INDIRIZZO DI PARTENZA 

6002:85 1C 

28 


STA 

SADR+1 


6004 :A5 67 

29 


LDA 

ASTR 


6006:85 18 

30 


STA 

SADR 


6008:20 9D 63 

31 


JSR 

TITLE 


6O0B:A0 00 

32 


LDY 

HO 

;C'E' UN PROGRAMMA IN MEMORIA? 

600D:B1 18 

33 


LDA 

(SADR) ,Y 


JHfiB 16 

8 


I 

BEGIN 


601 2 :B1 1B 

36 


LDA 

(SADR) ,Y 


6014 : DO 11 

37 


BNE 

BEGIN 


60ló:A0 00 

38 


LDY 

HO 

;N0, STAMPA MESSAGGIO E FINISCE 

6018:89 28 64 

39 

ERR 

LDA 

ERNS6 ,Y 


601B :C8 

40 


INY 

• 


60 1 C: 20 ED FD 

41 


JSR 

COUT 


601F:C0 12 

42 


CPY 

«18 


6021 :DG ^5 

43 


BNE 

ERR 


6023:20 8E FD 

44 


JSR 

CROUT 
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6026:60 


45 

RTS 


6027:A9 00 


46 BE61N 

LDA 

«0 

6029:A8 


47 

TAY 


602A:99 F3 

63 

48 LOOP 

STA 

CURSOR,Y 

ó02D:C8 


49 

INY 


602E:C0 1C 


50 

CPY 

#28 

6030:00 F8 


51 

BNE 

LOOP 

6032:A9 70 


52 

LDA 

#>L1NE 

6034:85 19 


53 

STA 

TLINE 

6036:A? 64 


54 

LDA 

#<LINE 

6038:85 1A 


55 

STA 

TLINE+1 

603A:A9 01 


56 

LDA 

#1 

603C : 20 95 

FE 

57 

JSR 

0UTP0RT 

603F:A9 09 


58 

LDA 

#9 

6041:20 ED 

FD 

59 

JSR 

COUT 

6044:A0 00 


60 

LDY 

#0 

6046:89 25 

64 

61 PRINTER LDA 

PRINT.Y 

6049:C8 


62 

INY 


604A:8C F8 

63 

63 

STY 

J 

604D: 20 ED 

FD 

64 

JSR 

COUT 

6050:AC F8 

63 

65 

LDY 

J 

6053:CO 03 


66 

CPY 

#3 

6055:DO EF 


67 

BNE 

PRINTER 

6057:A0 01 


68 

LDY 

#1 

6059:8C 03 

64 

69 

STY 

PG 

605C:C8 


70 

INY 


605D:8C FE 

63 

71 

STY 

NP 

6060:20 D9 

62 

72 

JSR 

PAGER 

6063:A0 00 


73 L30 

LDY 

#0 

6065 :B1 18 


74 

LDA 

(SADR) ,Y 

6067:85 10 


75 

STA 

NXLIN 

6069:C8 


76 

INY 


606A:B1 18 


77 

LDA 

(SADR),Y 

606C: 85 1E 


78 

STA 

NXLIN*1 

606E:D0 07 


79 

BNE 

COPLIN 

6070:A5 10 


80 

LDA 

NXLIN 

6072:D0 03 


81 

BNE 

COPLIN 

6074:4C 65 

62 

82 

JMP 

L290 

6077:A0 02 


83 COPLIN 

LDY 

#2 

6079:B1 18 


84 

LDA 

(SADR),Y 

607B:8D 09 

64 

85 

STA 

TLO 

607E:C8 


86 

INY 


607F:B1 1B 


87 

LDA 

(SADR) ,Y 

6081:8D 08 

64 

88 

STA 

THI 

6084: 


89 ; 



6084: 


90 ; CONTROLLA LA LINEA 

6084: 


91 : 



6084:A0 04 


92 L50 

LDY 

#4 

6086:B1 1B 


93 L60 

LDA 

(SADR),Y 

6088:DO 11 


94 

BNE 

L70 

608A:8D FF 

63 

95 

STA 

NI 

608D: 20 12 

61 

96 

JSR 

L160 

6090 :A5 1D 


97 

LDA 

NXLIN 

6092:85 18 


98 

STA 

SADR 

6094:A5 1E 


99 

LDA 

NXLIN+1 

6096:85 1C 


100 

STA 

SADR+1 

6098:4C 63 

60 

101 

JMP 

L30 

6098:C9 80 


102 L70 

CMP 

#$80 

609D:B0 06 


103 

BCS 

L80 

609F:20 71 

62 

104 

JSR 

CHINL 

60A2:4C C3 

60 

105 

JMP 

L100 

60A5:48 


106 L80 

m 


60A6:98 


107 

TYA 


60A7:48 


108 

PHA 


60A8:AD F3 

63 

109 

LDA 

CURSOR 

60AB:F0 0E 


110 

BEQ 

L90 

60AD:A8 


111 

TAY 


60AE: 88 


112 

DEY 


60AF:89 70 

64 

113 

LDA 

LINE,Y 

60B2:C9 20 


114 

CMP 

#$20 

60B4:F0 05 


115 

BEQ 

L90 

60B6:A9 20 


116 

LDA 

#$20 

60B8:20 71 

62 

117 

JSR 

CHINL 

60BB:68 


118 L90 

PLA 


60BC:A8 


119 

TAY 


60BD:68 


120 

PLA 


60BE: 48 


121 

PHA 


60BF:20 7B 

62 

122 

JSR 

GETTOK 

60C2:68 


123 

PLA 


60C3:C9 22 


124 L100 

CMP 

#34 

60C5: DO 08 


125 

BNE 

LI 10 

60C7:AD F7 

63 

126 

LDA 

IQ 

60CA:49 01 


127 

E0R 

#1 

60CC:8D F7 

63 

128 

STA 

IQ 


; INIZIALI ZZA LE VARIABILI 


; INIZIALI ZZA SEGMENTO 
;DA STAMPARE 

;ATTIVA LA STAMPANTE (PRI1) 
;IWJIA CHR$(9)'80N B 


; STAMPA NUMERO PAGINA 


{CARICA NUMERO BIWR10 LINEA 


{CARICA UN BYTE 


;E' UN TOKEN? 

;S1=>L80 

;NO - METTE IL CARATTERE NELLA LINEA 
{SALVA IL TOKEN E Y 


{INIZIO DELLA LINEA? 
;SI=>L90 


{CARICA CARATTERE LINEA CORRENTE 
{SPAZIO? 

;SI=>L90 

{METTE UNO SPAZIO NELLA LINEA 
{RIPRISTINA TOKEN E Y 

{TROVA IL TOKEN E LO METTE NELLA LINEA 
{DOPPIE VIRGOLETTE 

{COMPLEMENTA 1Q 

Continua 


3) Rientra i blocchi di codice control¬ 
lati da istruzioni IF—THEN. 

Caratteristiche aggiuntive della ver¬ 
sione del listato 1 sono: 

1) Inizializzazione automatica della 
stampante (cioè PR#1 con la scheda 
d’interfaccia stampante nello slot N.l) 
all’inizio, e chiusura automatica (cioè 
PR#0) alla fine del listato 

2) Avanzamento della carta automati¬ 
co alla fine di un numero specificato di 
linee per provvedere alla macinazio¬ 
ne alta e bassa dei fogli su cui viene 
stampato il listato (questo è utile con 
le stampanti come la EPSON MX-80 
che non lo fanno automaticamente) 

3) Numerazione automatica delle pa¬ 
gine del listato 

4) Divisione automatica delle linee 
lunghe in segmenti più piccoli al fine 
di: a) ingrandire i margini destri; b) 
spezzare una linea lunga in linee di 
sequenza più piccole, interrompendo 
solo a uno spazio, una virgola, un + , 
un —, un * o un /; c) rientrare opportu¬ 
namente le linee di sequenza che ne 
risultano. 

L’impiego 
di PRETTYLISTER 

Questa routine in Applesoft deve 
essere aggiunta in coda al programma 
in Applesoft da listare, e poi eseguita 
introducendo RUN 63000. Dato che 
questa routine comincia con la linea 
63000 il programma da listare non può 
contenere numeri di linea superiori o 
uguali a 63000. 

La soluzione più comoda è quella di 
salvare il programma PRETTYLI¬ 
STER su dischetto come file di testo e 
poi fare il suo EXEC in memoria 
quando è necessario.Per creare il file 
EXEC basta battere RUN 63400. Do¬ 
po di ciò si può caricare il proprio pro¬ 
gramma da listare, fare EXEC PRET- 
TY e quindi battere RUN 63000. 

L’inconveniente principale della 
versione di PRETTYLISTER scritta 
in Applesoft è che la sua velocità risul¬ 
ta piuttosto ridotta: oltre a un sensibile 
ritardo iniziale, causato dalla lettura 
dei token dell’Applesoft dalla memo¬ 
ria alla matrice stringa TK$, c’è una 
percettibile pausa alla fine di ogni li¬ 
nea stampata mentre viene costruita la 
linea seguente. In altre parole il 
PRETTYLISTER in Applesoft non 
consente di "tenere il passo" con la 
stampante. La lentezza del program¬ 
ma in questa versione rende vani molti 
dei suoi pregi intrinsechi: per questo è 
stata necessaria una "traduzione" in 
Assembler che renda molto più "scat¬ 
tante" l’utilissimo PRETTYLISTER. 
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Versione 
in Assembler 

La maniera più logica con cui si po¬ 
teva accelerare il procedimento di li¬ 
stato era quella di generare una versio¬ 
ne in Assembler (ASM) del program¬ 
ma in Applesoft. In realtà noi credia¬ 
mo che i linguaggi ad alto livello siano 
sempre da preferire rispetto ai lin¬ 
guaggi meno versatili, ma in questo 
caso la necessità di rendere più veloce 
l’esecuzione del programma ci ha con¬ 
vinto a tradurre il PRETTYLISTER 
nel linguaggio assemblatore del 6502. 

Come previsto questa versione gira 
molto più velocemente di quella in 
Applesoft, e l’unica limitazione all’uso 
del programma è, in questo secondo 
caso, costituita dalla velocità della 
stampante. Inoltre non ci sono restri¬ 
zioni ai numeri di linea del programma 
da listare se non quelle imposte dal- 
l’Applesoft. La routine viene eseguita 
con questa sequenza di comandi: 


LO AD (programma da listare) 
BLOAD PRETTYLISTER 
ASM. OBJ 
CALL 24576 


Né la versione in Applesoft né quel¬ 
la in Assembler del PRETTYLISTER 
opereranno il rientro corretto delle 
molte varianti dei comandi Applesoft, 
come NEXT I,J. Non abbiamo infatti 
ritenuto necessario estendere la stesu¬ 
ra di questo programma per compren¬ 
dere anche i casi che si verificano mol¬ 
to raramente dato che, con una mag¬ 
giore completezza, avremmo certa¬ 
mente reso più difficile la digitazione 
delle istruzioni in linguaggio macchi¬ 
na, lavoro sempre noioso e soggetto a 
errori di battitura molto difficili da in¬ 
dividuare. 


60 CF;4C OE 61 

129 

JMP 

L150 

60D2:8D 07 64 

130 LI 10 

STA 

TEMP 

60D5;C9 3A 

131 

CMP 

«58 

60D7:D0 05 

132 

BNE 

ORTEST 

60D9:AD F7 63 

133 

LDA 

IQ 

6QDC:FQ 07 

134 

BEQ 

TRUETST 

60DE:AD 07 64 

135 QRTEST 

LDA 

TEMP 

6QE1:C9 C4 

136 

CMP 

#196 

óOE3:DQ 09 

137 

BNE 

L120 

60£5:AD 07 64 

138 TRUETST LDA 

TEMP 

60E8:2G 12 61 

139 

JSR 

L160 

6GEB:4C 0E 61 

140 

JMP 

LISO 

6QEE:C9 AD 

141 L120 

CMP 

#173 

60FQ:DQ 06 

142 

BNE 

L130 

60F2:EE FF 63 

143 

INC 

NI 

óOF5:4C OE 61 

144 

JMP 

LISO 

60F8:C9 81 

145 LI30 

CMP 

#129 

ó0FA:D0 06 

146 

BNE 

L140 

óOFCsEE 00 64 

147 

INC 

NF 

60FF:4C 0E 61 

148 

JMP 

L150 

6102 :C9 82 

149 L140 

CMP 

#130 

6104 : DO 08 

150 

BNE 

L150 

6106:A9 01 

151 

LDA 

#1 

6108:8D 01 64 

152 

STA 

NS 

61QB;CE 00 64 

153 

DEC 

NF 

610E:C8 

154 LISO 

INY 


610F:4C 86 60 

155 

JMP 

L60 

Ó112:AD 08 64 

156 L160 

LDA 

THI 

Ó115:C9 FF' 

157 

CMP 

#255 

6117:D0 OD 

158 

BNE 

L170 

6119:AD 09 64 

159 

LDA 

TLO 

611C:C? FF 

160 

CMP 

#255 

óllE:D0 06 

161 

BNE 

L170 

6120;20 66 63 

162 

JSR 

PUT5SP 

6123:4C 56 61 

163 

JMP 

L180 

61?6:AD 08 64 

164 L170 

LDA 

THI 

6129:8D F5 63 

165 

STA 

HI 

612C:AD 09 64 

166 

LDA 

TLO 

612F:8D FC 63 

167 

STA 

LO 

6132i98 

168 

TYA 


6133:48 

169 

PM 


6134:20 10 63 

170 

JSR 

CQNVL 

6137:A0 00 

171 

LDY 

#0 

6139:89 0A 64 

172 PRNUM 

LDA 

ANSld.Y 

613C: 09 80 

173 

ORA 

#$80 

613E:C8 

174 

INY 


613F:8C F8 63 

175 

STY 

J 

6142:20 ED FD 

176 

JSR 

COUT 

Ó145:AC F8 63 

177 

LDY 

J 

6148 : CO 05 

178 

CPY 

#5 

614A: DO ED 

179 

BNE 

PRNUM 

614C: 68 

180 

PLA 


614D:A8 

181 

TAY 


614E:A9 F P 

182 

LDA 

#255 

6150:8D 09 64 

183 

STA 

TLO 

6153:8D 08 64 

184 

STA 

THI 

6156:AD 01 64 

185 L180 

LDA 

NS 

6159:F0 0E 

186 

BEQ 

L190 

615B:CE F6 63 

187 

DEC 

IN 

615E:CE F6 63 

188 

DEC 

IN 

6161 :CE F6 63 

189 

DEC 

IN 

6164:A9 00 

190 

LDA 

#0 

6166:8D 01 64 

191 

STA 

NS 

6169:8D 04 64 

192 L190 

STA 

PB 

ólóCiAD Fó 63 

193 

LDA 

IN 

616F:8D F9 63 

194 

STA 

JN 

6172:AD FF 63 

195 

LDA 

NI 

6175:18 

196 

CLC 


6176:6D 00 64 

197 

ADC 

NF 

6179:8D 07 64 

198 

STA 

TEMP 

617C:2A 

199 

ROL 

A 

617D : 18 

200 

CLC 


617E:6D 07 64 

201 

ADC 

TEMP 

6181:AA 

202 

TAX 


6182:E8 

203 

INX 


6183:8E F6 63 

204 

STY 

IN 

6186:AE F3 63 

205 

LDX 

CURSOR 

6189:8E FB 63 

206 

STX 

LC 

618C:AD F9 63 

207 L200 

LDA 

JN 

Ó18F:!8 

208 

CLC 


6190:6D FB 63 

209 

ADC 

LC- 

6193:8D FD 63 

210 

STA 

LP 

6196 : CD 10 64 

211 

CMP 

LL 

6199 :F0 02 

212 

BEQ 

L210 


; "THEN" 

; B 1F M 
; "F0R“ 

; -NEXT" 

; "FF" 

; -FF* 


; CONVERTE NUMERO LINEA IN DECIMALE 
;0UTPUT NUMERO DI LINEA 


; IMPOSTA NUMERO LINEA = >1 


;N1+NF 
; SALVA 
;<NI+NF>*2 

;<NI+NF)*3 

;<NI+NF)*34l 

sLUNGHEZZA LINEA CORRENTE 
; SALVA LUNGHEZZA LINEA STAMPABILE 

;LP=JN+LC 

;PAR T E LUNGHEZZA LINEA STAMPABILE 
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ól9B:B0 

2F 


213 

BCS 

L230 


6190:AD 

04 

64 

214 L210 LDA 

PB 


61A0.-C9 

01 


215 

CMP 

#1 


61A2: DO 

03 


216 

BNE 

L220 


61A4:20 

66 

63 

217 

JSR 

PUT5SP 


61A?: 20 

6C 

63 

218 L22( 

JSR 

PRSPACE 

; STAMPA *JN‘ SPAZI 

61AA:AD 

FB 

63 

219 

LDA 

LC 


61AD :8D 

02 

64 

220 

STA 

NBRBYT 


61BO:A5 

19 


221 

LDA 

TLINE 


6182:85 

FB 


222 

STA 

ADLPRT 


61B4:A5 

1A 


223 

LDA 

TLINE+1 


6186:85 

FC 


224 

STA 

ADLPRT*1 


61B8:20 

79 

63 

225 

JSR 

PRLINE 

; STAMPA LA LINEA 

6!BB:A9 

00 


226 

LDA 

#0 


61BD:8D 

F3 

63 

227 

STA 

CURS0R 


61 CO:20 

44 

62 

228 

JSR 

L270 


61C3:A9 

70 


229 

LDA 

#>LINE 

{REIMPOSTA LA PARTENZA DEL SEGMENTO 

61C5:85 

19 


230 

STA 

TLINE 

;DA STAMPARE NELLA LINEA 

61C7:A9 

64 


231 

LDA 

#<LINE 


61C9:85 

1A 


232 

STA 

TLINE*1 


61CB: 60 



233 

RTS 



61CC:AD 

10 

64 

234 L23C 

LDA 

LL 


61CF: 38 



235 

SEC 



61 DO : ED 

F9 

63 

236 

SBC 

JN 


61D3:8D 

FA 

63 

237 

STA 

K 


61D6:8C 

06 

64 

238 

STY 

SAVY 

; SALVA SPOST.NELLA LINEA DI PR0GRAM4A 

6109:A8 



239 

TAY 



61 DA : B1 

19 


240 KL00P LDA 

(TLINE),Y 


61DC:C9 

20 


241 

CMP 

«20 

{SPAZIO 

61 DE i FO 

20 


242 

BEQ 

L250 


61E0:C9 

2B 


243 

CMP 

«2B 

; " + " 

61E2 : FO 

!C 


244 

BEQ 

L250 


61E4.-C9 

20 


245 

CMP 

«20 

* ■ _» 

9 

61E6:F0 

18 


246 

BEQ 

L250 


61E8:C9 

2F 


247 

CMP 

«2F 

; 7" 

61EA : FO 

14 


248 

BEQ 

L250 


61EC:C9 

2A 


249 

CMP 

«2A 

; 

61EE : FO 

10 


250 

BEQ 

L250 


61 FO:C9 

2C 


251 

CMP 

«2C 

( 1 1 

9 9 

61F2:F0 

OC 


252 

BEQ 

L250 


61F4:88 



253 L24C 

1 DEY 



61F5 :98 



254 

TYA 



61F6:C9 

00 


255 

CMP 

#0 


61F8:F0 

06 


256 

BEQ 

L250 


61FA:8D 

FA 

63 

257 

STA 

K 


61FD:4C 

DA 

61 

258 

JMP 

KLQQP 


6200:AD 

04 

64 

259 L25C 

1 LDA 

PB 


6203:C9 

01 


260 

CMP 

« 


6205:00 

03 


261 

BNE 

L260 


6207:20 

66 

63 

262 

JSR 

PUT5SP 


620A:A9 

01 


263 L26C 

1 LDA 

« 


620C: 80 

04 

64 

264 

STA 

PB 


620F: 20 

6C 

63 

265 

JSR 

PRSPACE 

{STAMPA •JN* SPAZI 

6212.*AD 

FA 

63 

266 

LDA 

K 


6215:80 

02 

64 

267 

STA 

NBRBYT 


6218:A5 

19 


268 

LDA 

TLINE 


621A:85 

FB 


269 

STA 

ADLPRT 


621C:A5 

1A 


270 

LDA 

TLINE+1 


621E : 85 

FC 


271 

STA 

ADLPRT*1 


6220:20 

79 

63 

272 

JSR 

PRLINE 

{STAMPA LA LINEA 

6223:A5 

19 


273 

LDA 

TLINE 


6225:18 



274 

CLC 



6226:60 

FA 

63 

275 

ADC 

K 

{AGGIORNA INDIRIZZO PARTENZA DELLA 

6229:85 

19 


276 

STA 

TLINE 

{LINEA PER LA STMPA 

622B:A5 

1A 


277 

LDA 

TLINE+1 


6220:69 

00 


278 

ADC 

#0 


622F:85 

1A 


279 

STA 

TLINE+1 


6231:AD 

FB 

63 

280 

LDA 

LC 


6234:38 



281 

SEC 



6235:ED 

FA 

63 

282 

SBC 

K 


6238:80 

FB 

63 

283 

STA 

LC 


623B: 20 

44 

62 

284 

JSR 

L270 


623E:AC 

06 

64 

285 

LDY 

SAVY 

{RIPRISTINA SPOST. LINEA PROGRAMMA 

6241:4C 

8C 

61 

286 

JMP 

L200 


6244:EE 

FE 

63 

287 L27C 

1 INC 

NP 


6247:A0 

FE 

63 

288 

LDA 

NP 


624A:CD 

1C 

64 

289 

CMP 

PL 


624D : 30 

15 


290 

BMI 

L280 


624F:A9 

02 


291 

LDA 

«2 


6251:80 

FE 

63 

292 

STA 

NP 


6254:AD 

0F 

64 

293 

LDA 

FF 


6257:20 

ED 

FD 

294 

JSR 

COlfT 

{AVANZAMENTO CARTA 

625A:EE 

03 

64 

295 

INC 

PG 


6250:98 



296 

TYA 


{SALVA SPOSTAMENTO 


Continua 


mmmmm 



RIVENDITORE AUTORIZZATO 

Qgcippkz computer ine. 



Software 

Contabilità generale 80CL Prodos 
Contabilità semplificata 
multiaziendale 
Gestione Parrocchie 
Gestione Alberghi 
Parcellazione studi legali 
Fatturazione su MAC 

Hardware 

Interfacce per Olivetti 
ET 121 /201 /221 / 111 
Interfacce per Adler 
G8008 SE/1005/ 1010/ 1030 



INFORMATICA 

BIELLA 

VIA ROMA 11 
13051 BIELLA 
TEL. 015- 29.875 
24.181 
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L’utilità di PRETTYLISTER non è 
però diminuita dal fatto che non sono 
contemplati anche i casi eccezionali. 
Infatti entrambe le versioni (sia in Ap¬ 
plesoft che in linguaggio assemblato- 
re) sono utili nel debugging di una rou¬ 
tine in Applesoft: qualsiasi errore di 
logica nel programma listato viene 
messo in evidenza da PRETTYLI¬ 
STER in modo che il listato appaia 
molto strano a cominciare dal punto 
nel quale si verifica il primo errore 
logico. 

Per il programma in Applesoft Ba¬ 
sic non esistono problemi di copiatura. 
Per il programma in linguaggio mac¬ 
china, chi possiede l’Assembler del 
Tool Kit può copiare il listato 2, men¬ 
tre chi non possiede l’Assembler e non 
ha pratica di linguaggio macchina può 
copiare l’equivalente listato 3 facendo 
riferimento all’articolo "Per chi comin¬ 
cia" pubblicato a pagina 117. Al termi¬ 
ne della copiatura il listato 3 va salvato 
con BSAVE PRETTYLISTER. OB- 
J,A$6000,L$471. 

Come funzionano 

Per riferimento del lettore ecco un 
sommario linea per linea di quel che fa 
il PRETTYLISTER. 

63000—63020 Inizializza e legge en¬ 
tro la matrice TK$ i caratteri ASCII 
per i token. 

63030 Controlla se fine programma. 

63040 Forma il numero di linea e 
inibisce il listato del PRETTYLI¬ 
STER stesso. 

63050 Inizializza lo spostamento 
nella linea tokenizzata. 

63060 Legge con PEEK il carattere 
seguente dalla linea tokenizzata e con¬ 
trolla se è a fine linea. 

63070 Mette il carattere non token 
nella linea di output (stringa CD$). 

63080—63090 Mette l’equivalente 
ASCII del token nella linea di output e 
aggiunge uno spazio dopo l’ultimo ca¬ 
rattere. 

63100 Imposta il flag quando vengo¬ 
no incontrate le virgolette. 

63110 Controlla se ci sia un segno di 
due punti non racchiuso fra virgolette 
o un token per THEN ; se viene trova¬ 
to l’uno o l’altro stampa la linea di 
output. 

63120-63130 Controlla se ci sia il 
token per IF e per FOR rispettivamen¬ 
te e incrementa il numero degli IF- 
/FOR incontrati. 

63140 Controlla se ci sia il token per 
NEXT e decrementa il numero delle 
combinazioni IF —THEN/FOR- 
NEXT. 


625E: 48 



297 


PM 



625F:20 

09 

62 

298 


JSR 

PAGER 

{STAMPA NUMERO PASINI 

6262:68 



299 


PLA 


{RIPRISTINI SPOSTAMENTO 

6263:A8 



300 


TAY 



6264:60 



301 

L280 

RTS 



6265:AD 

OF 

64 

302 

L290 

L0A 

FF 


6268:20 

ED 

FD 

303 


JSR 

COUT 

; AVANZAMENTO CARTA ALLA FINE 

626B:A9 

00 


304 


LDA 

#0 

{DISATTIVA LA STAMPANTE 

6260:20 

95 

FE 

305 


JSR 

0UTP0RT 


6270:60 



306 


RTS 



6271: 



307 

j 




6271 : 



308 

jMETTE 

IL CARATTERE NELLA LINEA DI OUTPLfT 

627!: 
6271:AE 

F3 

63 

309 

310 

ÒHINl 

LDX 

CURS0R 

{POSIZIONE CORRENTE LINEA DI OUTPUT 

6274:90 

70 

64 

311 


STA 

LINE.X 
CURSÒR 


6277:EE 

F3 

63 

312 


INC 


627A:60 



313 


RTS 



627B: 



314 

j 




627B: 



315 

;CERCA NELLA TAVOLA DE! TOKEN 

627B: 



316 

;A IL 

REGISTRO CONTENENTE IL TOKEN 

627B: 

627B:8C 

06 

64 

317 

318 

óettok 

STY 

SAVY 

{SALVA Y & X 

627E.-8E 

05 

64 

319 


STX 

SAVX 


628!:A0 

00 


320 


L0Y 

*0 


6283:48 



321 




{SALVA TOKEN 
{TAVOLA A DEI TOKEN 

6284:A9 

00 


322 


LOA 

»>TKADA 

6286:85 

F9 


323 


STA 

CURTAB 

6288:A9 

DO 


324 


LOA 

#<TKADA 


628A:85 

FA 


325 


STA 

CURTAB*1 


628C:68 



326 


PLA 


{RICEVE IL TOKEN 
{DISATTIVA IL BIT ALTO 

6280:29 

7F 


327 


AND 

#*7F 

628F: 80 

F4 

63 

328 


STA 

CURT0K 

6292:F0 

25 


329 


BEO 

F0UNDT 

{PRIMO TOKEN 

6294:C9 

3A 


330 


CMP 

»$3A 

;IN QUALE TAVOLA SI TROVA IL TOKEN? 

6296:30 

12 


331 


BMI 

ATABLE 

;E' NELLA TAVOLA “A" 

6298:48 



332 


PW\ 



6299:A9 

CB 


333 


LDA 

«TKADB 


629B: 85 

F9 


334 


STA 

CURTAB 


629D-.A9 

01 


335 


LDA 

#<TKADB 


629F: 85 

FA 


33ó 


STA 

CURTAB*1 

{INIZIO DELLA TAVOLA B 

62A1:68 



337 


PLA 



62A2:38 



338 


SEC 



62A3:E9 

3A 


339 


SBC 

#$3A 


62A5:8D 

F4 

63 

340 


STA 

CURT0K 


62A8:F0 

OF 


341 


BEO 

F0UNDT 


62AA:AE 

F4 

63 

342 

ATABLE 

LDX 

CURT0K 


62AD:B1 

F9 


343 

C0NTIN 

LDA 

(CURTAB),Y 

{RICEVE IL BYTE CORRENTE 

62AF: 30 

04 


344 


BMI 

BRT0K 

;C0NTROLLA=BYTE FINALE DEL TOKEN 

62B1:C8 



345 


INY 



62B2:4C 

AD 

62 

346 


JMP 

C0NTIN 


62B5:C8 



347 

BRT0K 

INY 



6286 :CA 



348 


DEX 


{DIMINUISCE IL NUMERO DEL TOKEN 

62B7:D0 

F4 


349 


BNE 

C0NTIN 


62B9:AE 

F3 

63 

350 

F0UNDT 

LDX 

CURS0R 


62BC:Bi 

F9 


351 


LDA 

(CURTAB),Y 


62BE:9D 

70 

64 

352 


STA 

LINE,X 


62C1:08 



353 


PHP 


62C2:E8 



354 


INX 



62C3:C8 



355 


INY 



62C4:EE 

F3 

63 

356 


INC 

CURS0R 


62C7:28 



357 


PLP 



62C8:10 

EF 


358 


BPL 

F0UNDT 


62CA:A9 

20 


359 


LDA 

#*20 

{METTE UN SPAZIO DOPO IL TOKEN 

62CC:9D 

70 

64 

360 


STA 

LINE.X 

CURSÒR 


62CF:EE 

F3 

63 

36! 


INC 


6202:AE 

05 

64 

362 


LDX 

SAVX 


6205:AC 

06 

64 

363 


LDY 

SAVY 


6208:60 



364 


RTS 



6209: 



365 

! 




6209: 



366 

{STAMPA NUMERO PAGINA 


6209: 



367 

fosER 




6209:A2 

46 


368 

LDX 

«70 


62DB: 29 

4A 

F9 

369 


JSR 

PRLB2 

{STAMPA 70 SPAZI VUOTI 

62DE:A0 

03 

64 

370 


LDA 

PG 

• 

62E1:8D 

FC 

63 

37! 


STA 

LO 


62E4:A9 

00 


372 


LOA 

«0 


62E6:80 

F5 

63 

373 


STA 

HI 


62E9:20 

10' 

63 

374 


JSR 

C0WL 

{CONVERTE NUMERO PAGINA IN ASCII 

62EC:A0 

04 


375 


LDY 

«4 

{MEMORIZZA NUMERO PAGIM IN 

62EE:A2 

02 


376 


LDX 

«2 

;*PAGEN* 

62F0:B9 

OA 64 

377 

ST0RPG 

LDA 

ANSW,Y 


62F3:9D 

22 6< 

378 


STA 

PAGEN ,X 


62F6:88 



379 


DEY 


62F7:CA 



380 


DEX 




Continua 
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Écippkz computar 


Gruppo 


fìmpuShnp 


Apple Ile 


Macintosh 


Apple Ile 


monitor Ile e supporto 
Disk drive aggiuntivo, 
Mouse. 


512K RAM 


128K RAM, 80 colonne 
Duodisk 




siriczlaii - 

ZX Spectrum 48K 



8 cassette originali, 

2 libri in italiano, 
supergaranzia Rebit. 

£. 365.000 iva inclusa 


SPECTRAVIDEO 
sintnlaii - 
Commodore 
flÉcippkz computar 

olivelli 


ROMA 


• Via Nomentana 265/273 

Tel. 8450078 

• Via L. Bonincontri 105/107 
Tel. 5140792 

• Via Famagosta 33 

Tel. 385408 


Ulteriori informazioni saranno fornite presso i punti vendita. 
































ó2F8:C0 

01 


38! 


CPY 

#1 


62FA: DO 

F4 


382 


BNE 

ST0RPG 


62FC:A9 

08 


383 


LDA 

#8 

[STAMPA NUMERO PAGINA 

62FE:8D 

02 

64 

384 


STA 

NBRBY7 


6301:A9 

1D 


385 


LDA 

#>PAGE 


6303:85 

FB 


386 


STA 

ADLPRT 


6305:A9 

64 


387 


LDA 

#<PAGE 


6307:85 

FC 


388 


STA 

ADLPRT*1 


6309:20 

79 

63 

389 


JSR 

PRL1NE 


630C: 20 

8E 

FD 

390 


JSR 

CROirr 


630F:6Q 



39! 


RTS 



6310: 



392 

! 




6310: 



393 

;CQNMERTE HI 

4 LO IN ASCII 

6310: 



394 

{MEMORIZZA IL RISULTATO IN ANSU 

6310: 
6310:A2 

04 


395 

396 

ÒONML 

LDX 

#4 


6312:A9 

30 


397 


LDA 

#*30 

; "i- 

6314:90 

OA 

64 

398 


STA 

ANSU,X 


6317:CA 



399 


OEX 



6318:A9 

20 


400 


LDA 

#*20 

• v B 

9 

631A:9D 

OA 

64 

401 

C2 

STA 

ANSU,X 


6310:CA 



402 


OEX 



631E : 10 

FA 


403 


BPL 

C2 


6320:E8 



404 


INX 



6321:A0 

00 


405 


LDY 

#0 


6323:89 

11 

64 

406 

G0N8 

LDA 

NUMS,Y 


6326 :FO 

30 


407 


BEO 

BD0N 


6328:38 



408 

GOQN 

SEC 



6329:AD 

FC 

63 

409 


LDA 

LO 


632C:F9 

11 

64 

410 


SBC 

NUMS,Y 


632F: 43 



411 


PHA 



6330:C3 



412 


INY 



6331:AD 

F5 

63 

413 


LDA 

HI 


6334 :F9 

11 

64 

414 


SBC 

NLfiSjY 


6337:90 

27 


415 


BCC 

NEXA 


6339:8D 

F5 

63 

416 


STA 

HI 


633C: 68 



417 


PLA 



633D:8D 

FC 

63 

418 


STA 

LO 


6340:88 



419 


DEY 



6341 :BD 

OA 

64 

420 


LDA 

ANSW,X 


6344:C9 

20 


421 


CMP 

#*20 

« * ■ 

j 

6346 : DO 

13 


422 


BNE 

INCT 


6348:A9 

30 


423 


LDA 

#*30 

; "i" 

634A: 90 

OA 

64 

424 


STA 

<m),x 


6340:8A 



425 


TXA 



634E: 48 



426 


PHA 



634F:A9 

30 


427 


LDA 

#*30 


6351:E8 



428 

LP2 

INX 



6352:90 

OA 

64 

429 


STA 

ANSU,X 


6355:E0 

04 


430 


CPX. 

#4 


6357:90 

F8 


431 


BCC 

LP2 


6359:68 



432 


PLA 



635A:AA 



433 


TAX 



635B:FE 

0A 

64 

434 

INCT 

INC 

ANSW,X 


635E:D0 

C8 


435 


BNE 

GOQN 


6360:C8 



436 

NEXA 

INY 



6361:68 



437 


PLA 



6362 :E8 



438 


INX 



6363:00 

BE 


439 


BNE 

G0NS 


6365:60 



440 

BD0N 

RTS 



6366: 



44! 

1 




6366: 



442 

iSTAMPA 

5 SPAZI 


6366: 
6366:A2 

05 


443 

444 

^UT5SP 

LDX 

#5 


6368:20 

4A 

F9 

445 


JSR 

PRLB2 


6368:60 



446 


RTS 



636C: 



447 

f 




636C: 



448 

; STAMPA 

■JN" 

SPAZI 


636C: 

636C:AE 

F9 

63 

449 

450 

fosPACE 

LDX 

JN 


636F:E0 

00 


451 


CPX 

#0 


6371:00 

02 


452 


BNE 

PRSPAC1 


6373:A2 

01 


453 


LDX 

#1 


6375:20 

4A 

F9 

454 

PRSPAC1 

JSR 

PRLB2 


6378:60 



455 


RTS 



6379: 



456 

« 




6379: 



457 

[STAMPA 

LA LINEA 


6379: 



458 

Orline 




6379:48 



459 

PHA 


; SALMA Y 4 A 

637A:98 



460 


TYA 



6378:48 



461 


m 



637C:A0 

02 

64 

462 


LDA 

NBRBYT 

{QUALCHE LINEA DA STAMPARE? 

637 ir :F0 

15 


463 


BEO 

0UTCR 

;N0=> INVIA CR 4 RETURN 

6381:A0 

00 


464 


LDY 

#0 



Continua 


63150 Incrementa lo spostamento al 
byte seguente in memoria, e salta in¬ 
dietro per farne la lettura con PEEK. 

63160-63170 Stampa o il numero di 
linea, se non è stato già stampato, o 
cinque spazi vuoti se è stato stampato. 

63180 Diminuisce il numero degli 
spazi di cui rientrare se è stato incon¬ 
trato un NEXT. 

63190 Calcola il numero degli spazi 
per il rientro della linea di output. 

63200 Controlla se la lunghezza del¬ 
la linea di output, compreso il rientro, 
superi la lunghezza massima di linea; 
in caso affermativo viene fatto un salto 
a linea 63230. 

63210-63220 Stampa la linea di 
output, compreso l’opportuno nume¬ 
ro di spazi da usare per il rientro, e 
RETURN. 

63230-63240 Trova un posto in 
CD$ al quale spezzare la linea per la 
stampa. 

63250-63260 Stampa la porzione di 
CD$ che sta su una linea, poi reimpo¬ 
sta CD$ alla porzione non stampata e 
salta indietro per stamparla. 

63270-63280 Incrementa il numero 
delle linee stampate e,-se questo nu¬ 
mero supera la lunghezza della pagi¬ 
na, invia l’avanzamento del modulo e 
stampa un nuovo numero di pagina. 

63290 Invia l’avanzamento del mo¬ 
dulo alla fine del listato, disattiva la 
stampante e visualizza sullo schermo il 
messaggio di completamento. 


Applesoft 
e assemblatore 

La versione in Assembler del 
PRETTYLISTER visibile nel listato 2 
è una traduzione pressoché letterale 
del programma in Applesoft con le so¬ 
le eccezioni indicate qui sotto. 

I numeri di linea dell’Applesoft 
(sottratti di 63000) sono usati come 
label nella versione in linguaggio As¬ 
sembler per facilitare il confronto. Per 
esempio la linea 63030 diventa il label 
L30, la linea 63200 diventa L200 e così 
via. 

Come menzionato sopra, diverse 
parti del programma in Assembler dif¬ 
feriscono leggermente dalle corri¬ 
spondenti nella versione in Applesoft: 
innanzitutto i messaggi di inizializza- 
zione e di conclusione sono cambiati; 
in secondo luogo viene esplorata la 
tavola dei token per trovare la tradu¬ 
zione in ASCII di ciascun token quan¬ 
do viene incontrato nel programma. 

Per aumentare la velocità di esecu¬ 
zione la tavola dei token è stata divisa 
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EdiSoftec: nasce un nuovo 
editore di software... 




Avanzate esperienze software 
ed un’innovativa società finan¬ 
ziaria danno vita ad un"software 
publisher” che diventerà un 
punto di riferimento per il 
mercato italiano. 


...e subito offre 
programmi 
più utili e più facili 
per gli utenti italiani. 

Due accordi esclusivi consentono ad EdiSoftec dì offrire i programmi migliori di 




Programmi innovativi, potenti e utili ma soprattutto facili per l’utente. 

Spotlighf 



Gli indispensabili strumenti di lavoro (agenda, 
archivio, calcolatrice, block notes, rubrica telefo¬ 
nica, accesso ai dischi) sempre a immediata 
disposizione, senza disturbare le elaborazioni in corso. 


TKfSolver 


Il primo vero “Centro Informativo” personale - potente e fles¬ 
sibile - per gestire con semplicità dati di qualsiasi tipo. 

In italiano, per le necessità italiane. 



Un “risolutore di equazioni” automatico basato 
su concetti di intelligenza artificiale. 

Un amico e un consigliere per chi affronta dei problemi esprimibili in 
equazioni, dal calcolo di strutture, al progetto meccanico, alla 

matematica finanziaria. / ° // 



EPr Ur TEC 


na\ cottvP utet 


EdiSoftec S.p.a.- Corso S. Maurizio, 79 


O 

o 


10124 Torino-Tel. (Oli) 839.64.45-6-7 


KOLMAR 













in due parti logiche, ognuna delle qua¬ 
li contiene press’a poco lo stesso nu¬ 
mero di byte. L’equivalente ASCII di 
ciascun token viene trovato sulla base 
del fatto che l’ultimo byte della tradu¬ 
zione ASCII ha il bit alto "on", mentre 
è "off" in tutti gli altri byte. Ogni volta 
che viene incontrato un token nel pro¬ 
gramma in Applesoft il programma in 
linguaggio assemblatore determina, 
sulla base del valore del token, in qua¬ 
le metà della tavola dei token si trovi il 
suo equivalente in ASCII. Il valore del 
token meno 128 (186 se nella seconda 
metà della tavola dei token) è allora il 
numero dei byte il cui byte alto è "on" 
che devono essere saltati (contando 
daH’inizio dell’appropriata metà della 
tavola dei token) per trovare la tradu¬ 
zione in ASCII del token. 

Infine, invece di costruire ogni linea 
di output in forma di stringa prima di 
stamparla, questa viene costruita ca¬ 
rattere per carattere e immagazzinata 
in locazioni di memoria che comincia¬ 
no alla fine del programma in linguag¬ 
gio assemblatore. In questo modo nes¬ 
suna parte della routine in linguaggio 
assemblatore, o del programma in Ap¬ 
plesoft, è sovramemorizzata. Quando 
una linea di output è stata costruita, se 
è necessario, viene spezzata in seg¬ 
menti più piccoli e stampata utilizzan¬ 
do la routine di output dei caratteri del 
monitor (COUT). 


Le modifiche 

Se volete adattare le routine alle vo¬ 
stre necessità potete intervenire come 
segue nelle linee con numero superio¬ 
re a 63000 (nella versione Applesoft) o 
nei corrispondenti valori nella versio¬ 
ne in Assembler. 


6383:B1 

FB 


465 0UTCHR 

LDA 

(ADLPRT) ,Y 

6385:09 

80 


466 

ORA 


6387:C8 



467 

INY 


6388:8C 

F8 

63 

468 

STY 

J 

638B: 20 

ED 

FD 

469 

JSR 

COUT 

638E:AC 

F8 

63 

470 

LDY 

J 

6391:CC 

02 

64 

471 

CPY 

NBRBYT 

6394: DO 

ED 


472 

BNE 

QUTCHR 

6396:20 

8E 

FD 

473 0UTCR 

JSR 

CROUT ;! 

6399:68 



474 

PLA 


639A:A8 



475 

TAY 


6398:68 



476 

PLA 


639C:60 



477 

RTS 


639D: 



478 ; 



639D : 



479 ; STAMPA INTESTAZIONE SUL 

639D: 

Ó39D:20 

58 

FC 

480 : 

481 tlTLE 

JSR 

HOME ;l 

63A0:A0 

06 


482 

LDY 

#6 

63A2:20 

8E 

FD 

483 CR 

JSR 

CROUT 

63A5:88 



484 

DEY 


63A6:D0 

FA 


485 

BNE 

CR 

63A8:A2 

08 


486 

LDX 

#S 

63AA:2Q 

4A 

F9 

487 

JSR 

PRLB2 

63AD:A0 

00 


488 

LDY 

HO 

63AF:B9 

3A 

64 

489 TI 

LDA 

NOTI CE ,Y 

63B2:C8 



490 

INY 

63B3:20 

ED 

FD 

491 

JSR 

COLT 

63B6:C0 

19 


492 

CPY 

#25 

63B8:DQ 

F5 


493 

BNE 

TI 

63BA:20 

SE 

FD 

494 

JSR 

CROIT 

63BD: 20 

8E 

FD 

495 

JSR 

CROUT 

63C0:A2 

0B 


496 

LDX 

#11 

63C2:20 

4A 

F9 

497 

JSR 

PRLB2 

63C5:A0 

19 


498 

LDY 

#25 

63C7:B9 

3A 

64 

499 T2 

LDA 

NOTI CE, Y 

63CA:C8 



500 

INY 

63CB:20 

ED 

FD 

501 

JSR 

COUT 

63CE: CO 

2B 


502 

CPY 

#43 

63D0:D0 

F5 


503 

BNE 

T2 

6302:20 

8E 

FD 

504 

JSR 

CROUT 

6305:20 

8E 

FD 

505 

JSR 

CR0LT 

6308:A2 

0E 


506 

LDX 

#14 

63DA: 20 


F9 

507 

JSR 

PRLB2 

6300:AG 

2B 


508 

LDY 

#43 

63DF:B9 

3A 

64 

509 T3 

LDA 

NOTI CE,Y 

63E2:C8 



510 

INY 

63E3:20 

ED 

FD 

51! 

JSR 

COLT 

ó3E6:C0 

36 


512 

CPY 

#54 

63E8:00 

F5 


513 

BNE 

T3 

63EA :A0 

OD 


514 

LDY 

#13 

63EC: 20 

8E 

FD 

515 T4 

JSR 

CROLT 

63EF:88 



516 

DEY 


63F0:D0 

FA 


517 

BNE 

T4 

63F2:60 



518 

RTS 


63F3: 

63F3:Q0 



520 ÒURS0R 

DFB 

0 ; 

63F4:00 



521 CURTQK 

DFB 

0 ; 

63F5 :00 



522 HI 

DFB 

o ; 

63F6 :00 



523 IN 

DFB 

0 : 


; PULISCE IL VIDEO 


PRIMA LOCAZIONE VUOTA NELLA LINEA 
TOKEN CORRENTE 

BYTE ALTO DEL NUMERO DI LINEA 


Listato 

3 ■ 

PRETTYLISTER - ASSEMBLATO 



60E8- 

20 

12 

61 

4C 

0E 

61 

C? 

AD 

6180- 

64 

AA 

E8 

8E 

Pò 

63 

AE 

F3 



















6QF0- 

DO 

06 

EE 

FF 

63 

4C 

0E 

61 

6188- 

63 

SE 

FB 

63 

AD 

F9 

63 

18 



















60F8- 

C9 

81 

DO 

06 

EE 

00 

64 

4C 

6190- 

6D 

FB 

63 

8D 

FD 

63 

CD 

10 

*6000 

.6470 
















6100- 

0E 

61 

C9 

82 

DO 

08 

A 9 

01 

6198- 

64 

F0 

02 

B0 

2F 

AD 

04 

64 









6070- 

A 5 

1D 

DO 

03 

4C 

65 

62 

A0 

6103- 

8D 

01 

64 

CE 

00 

64 

C8 

4C 

61A0- 

C9 

01 

DO 

03 

20 

66 

63 

20 

6000- 

A 5 

68 

85 

1C 

A5 

67 

85 

1B 

6078- 

02 

81 

18 

8D 

09 

64 

C8 

B! 

6110 - 

86 

60 

AD 

03 

64 

C9 

FF 

DO 

61A8- 

6C 

63 

AD 

FB 

63 

3D 

02 

64 

6008- 

20 

9D 

63 

A0 

00 

31 

18 

DO 

6080- 

1B 

3D 

08 

64 

AG 

04 

81 

18 

61! 8- 

OD 

AD 

09 

64 

09 

FF 

DO 

06 

6180- 

A5 

19 

85 

FB 

A5 

1A 

85 

FC 

6010- 

16 

ce 

81 

ÌB 

DO 

11 

AD 

00 

6088- 

DO 

11 

30 

FF 

63 

20 

12 

61 

6120- 

20 

66 

63 

4C 

56 

61 

AD 

08 

6188- 

20 

79 

63 

A 9 

00 

8D 

F3 

63 

6018- 

89 

28 

64 

C8 

20 

ED 

FD 

CO 

6090- 

A 5 

1D 

85 

1B 

A 5 

1E 

85 

1C 

6128- 

64 

8D 

F5 

63 

AD 

09 

64 

8D 

61C0- 

20 

44 

62 

A9 

70 

85 

19 

A9 

6020- 

12 

DO 

F5 

20 

8E 

FD 

60 

A9 

6098- 

4C 

63 

60 

C9 

80 

B0 

06 

20 

6130- 

FC 

63 

98 

48 

20 

10 

63 

A0 

61C8- 

64 

35 

!A 

60 

AD 

10 

64 

38 

6028- 

00 

AB 

99 

F3 

63 

C8 

CO 

1C 

60A0- 

71 

62 

4C 

C3 

60 

48 

98 

48 

6138- 

00 

B9 

0A 

64 

09 

30 

CS 

se 

61D0- 

ED 

F9 

63 

8D 

FA 

63 

8C 

06 

6030- 

DO 

F8 

A 9 

70 

85 

19 

AF¬ 

64 

60A8- 

AD 

F3 

63 

Fu 

OE 

A8 

88 

B9 

6140- 

F8 

63 

20 

ED 

FD 

AC 

FB 

63 

61D8- 

64 

AB 

Bì 

19 

C9 

20 

F0 

20 

6038- 

35 

1A 

A9 

01 

20 

95 

FÉ 

A 9 

60B0- 

70 

64 

C9 

20 

F0 

05 

A9 

20 

6148- 

CO 

05 

DO 

ED 

68 

A3 

A9 

FF 

61E0- 

C9 

28 

F0 

1C 

C9 

2D 

F0 

18 

6040- 

09 

20 

ED 

FD 

A0 

00 

B9 

25 

6068- 

20 

71 

62 

68 

A 8 

68 

48 

20 

6150- 

3D 

09 

64 

SD 

08 

64 

AD 

01 

61 ES- 

C9 

2F 

F0 

14 

C9 

2A 

F0 

10 

6048- 

64 

C8 

8C 

F8 

63 

20 

ED 

FD 

60C0- 

7B 

62 

68 

C9 

22 

DO 

0B 

AD 

6158- 

64 

F0 

OE 

CE 

Fé 

63 

CE 

Fé 

61 F0- 

C9 

2C 

F0 

OC 

88 

93 

C9 

co 

6050- 

AC 

F8 

63 

CO 

03 

DO 

EF 

A0 

60C8- 

F7 

63 

49 

01 

8D 

F? 

63 

4C 

6160- 

63 

CE 

Fé 

63 

A9 

00 

8D 

01 

61F8- 

F0 

06 

3D 

FA 

63 

4C 

DA 

61 

6058- 

01 

8C 

03 

64 

C8 

8C 

FÉ 

63 

6QDB- 

OE 

61 

30 

07 

64 

C9 

3A 

DO 

6168- 

64 

8D 

04 

64 

AD 

Fé 

63 

8D 

6200- 

AD 

04 

64 

C9 

01 

DO 

03 

20 

6060- 

20 

D9 

62 

A0 

00 

81 

18 

85 

60D8- 

05 

AD 

F7 

63 

FD 

07 

AD 

07 

6170- 

F9 

63 

AD 

FF 

63 

13 

60 

00 

6208- 

66 

63 

A3 

01 

3D 

04 

64 

20 

6068- 

1D 

C8 

81 

1B 

85 

1E 

DO 

07 

60 E0- 

64 

C9 

C4 

DO 

09 

AD 

07 

64 

6178- 

64 

80 

07 

64 

2A 

18 

6D 

07 

6210- 

6C 

63 

AD 

FA 

63 

8D 

02 

64 
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63F7.-00 

524 

IQ 

DFB 

0 


63F8:00 

525 

J 

DFB 

0 


63F9:00 

526 

JN 

DFB 

0 


63FA: 00 

527 

K 

DFB 

0 


63F8:0Q 

528 

LC 

DFB 

0 

; LUNGHEZZA TOTALE LINEA STAMPABILE 

63FC:0G 

529 

LO 

DFB 

0 

;BYTE BASSO DEL NUMERO DI LINEA 

63FD:Q0 

530 

LP 

DFB 

0 

63FE:G0 

531 

NP 

DFB 

0 

INUMERÒ DI LINEE STAMPATO 

63FF: 00 

532 

NI 

DFB 

0 


6400:00 

533 

NF 

DFB 

0 


6401:00 

534 

NS 

DFB 

0 


6402:00 

535 

NBRBYT 

DFB 

0 

INUMERÒ DI BYTE DA STAMPARE 

6403:00 

536 

PG 

DFB 

0 

INUMERÒ PAG1W 

6404:00 

537 

P6 

DFB 

0 


6405:00 

538 

SAVX 

DFB 

0 


6406:00 

539 

SAVY 

DFB 

e 


6407:00 

540 

TEMP 

DFB 

0 


6408:00 

541 

THI 

D^B 

0 


6409:00 

542 

ILO 

DFB 

0 


640A:00 00 00 
6400:00 00 

543 

ANSU 

DFB 

0,0,0,0,0 


64GF:0C 

544 

FF 

DFB 

12 

; CARATTERE AVANZAMENTO MODULO 

ó41Q:3C 

545 

LI 

DFB 

60 

LUNGHEZZA LINEA 

6411:10 27 E8 
6414:03 64 00 
64!7:0A>00 01 
641A : 00 00 

546 

NLMS 

DFB 

%! 0,$27,$E8, $3 ,$64,0 ,$A ,0, 1 ,0,0 

64!C:3A 

547 

PL 

DFB 

58 

.•LUNGHEZZA PAGIM 

641D:D0 CI C7 
6420:C5 A0 

548 

PAGE 

ASC 

'PAGE 


6422:00 00 00 

549 

PAGEN 

DFB 

0.0,0 


6425:88 B0 CE 

550 

PRINT 

ASC 

'tori' 


6428:CE CF A0 

551 

ERMSG 

ASC 

NO 

PROGRAM TO LIST-' 


6426:00 02 CF 
642E:C? 02 C! 

6431:CD A0 04 
6434:CF AG CC 
6437 : C9 03 04 

643A: 00 02 C5 552 NOTI CE ASC 'PRETTYLISTER,VERSI ONE ASM ' 

6430:04 04 D9 

6440:CC C9 03 

6443:04 C5 02 

6446:AC 06 C5 

6449:02 03 C9 

644C:CF CE C5 

644F:A0 CI 03 

6452.-CD 

6453:C3 CF 00 553 ASC 'COPYRIGHT (0 1985' 

6456:09 02 C9 
6459:C7 C8 04 
645C:A0 A8 C3 
645F:A9 AO 81 
6462:89 88 B5 

6465:C2 02 09 554 ASC 'BRYAN BROUN 

64ó6:Cl CE AO 
646B:C2 D2 CF 
646E:D7 CE 

6470:00 555 LINE DFB 0 

*** SUCCESSFUL ASSEMBLI': NO ERRORS 


1) Se la scheda di interfaccia stam¬ 
pante non è nello slot 1 cambiate 
"PR#1" in "PR#S", dove S è il numero 
di slot della stampante a disposizione. 
Nella versione in Assembler cambiate 
il contenuto della locazione $603B 
esadecimale (24635 decimale) da "1" al 
numero di slot della propria stampan¬ 
te; 

2) Variabile FF = valore decimale 
del carattere di avanzamento del mo¬ 
dulo (la versione in Applesoft stampa 
CHR$ (FF) per emettere un avanza¬ 
mento del modulo, indicato come 12 
nel listato 2); 

3) Variabile PL = lunghezza della 
pagina (numero massimo delle linee 
stampate per pagina comprese 2 linee 
per il numero di pagina, indicato come 
58 nel listato 2); 

4) Variabile LL = lunghezza della 
linea (numero massimo dei caratteri 
stampati per linea, mostrato come 60 
nel listato 2). 

Entrambi i programmi funzionano 
bene con le stampanti EPSON 
MX-80, DMP e ImageWriter, e do¬ 
vrebbero girare anche con altre stam¬ 
panti parallele e seriali. 

Adesso non rimane che passare sul 
vostro Apple, digitare PRETTYLI¬ 
STER personalizzandolo secondo le 
vostre esigenze e finalmente godersi il 
piacere di guardare il listato delle vo¬ 
stre fatiche di programmatori senza 
più ansie e preoccupazioni per l’inevi¬ 
tabile lavoro di correzione e modifica 
dei programmi che avete in mente da 
tempo. Buon lavoro! 


Questo programma è disponibile su 
dischetto. L’elenco, i prezzi e le 
modalità d’ordine di questo e degli altri 
dischetti disponibili sono riportati nella 
rubrica Disk Service. 


6218- 

A5 

19 

85 

F8 

A5 

1A 

85 

FC 

62B0- 

04 

ce 

4C 

AD 

62 

C8 

CA 

DO 

6220- 

20 

"9 

63 

A 5 

19 

18 

6D 

FA 

6288- 

F4 

AE 

F3 

63 

81 

F9 

9D 

70 

6228- 

63 

85 

19 

A5 

1A 

69 

00 

85 

62C0- 

64 

08 

E8 

C8 

EE 

F3 

63 

28 

6230- 

1A 

AD 

FB 

63 

38 

ED 

FA 

63 

62C8- 

10 

EF 

A9 

20 

9D 

70 

64 

EE 

6238- 

80 

F8 

63 

20 

44 

62' 

AC 

06 

62D0- 

F3 

63 

AE 

05 

64 

AC 

06 

64 

6240- 

64 

4C 

8C 

61 

EE 

FE 

63 

AD 

62D8- 

60 

A2 

46 

20 

4A 

F9 

AD 

03 

6248- 

FE 

63 

CD 

!C 

64 

30 

15 

A9 

62EG- 

64 

3D 

FC 

63 

A 9 

00 

8D 

F5 

6250- 

02 

8D 

FE 

63 

AD 

0F 

64 

20 

62E8- 

63 

20 

10 

63 

A0 

04 

A2 

02 

6258- 

ED 

FD 

EE 

03 

64 

98 

48 

20 

62F0- 

B9 

0A 

64 

9D 

22 

64 

88 

CA 

6260- 

09 

62 

68 

A8 

60 

AD 

0F 

64 

62F3- 

CO 

01 

DO 

F4 

A 9 

03 

8D 

02 

6268- 

20 

ED 

FD 

A9 

00 

20 

95 

FE 

6300- 

64 

A3 

1D 

85 

FB 

A9 

64 

85 

6270- 

60 

AE 

F3 

63 

9D 

70 

64 

EE 

6308- 

FC 

20 

79 

63 

20 

SE 

FD 

60 

6278- 

F3 

63 

60 

se 

06 

64 

8E 

05 

6310- 

A 2 

04 

A9 

30 

9D 

0A 

64 

CA 

6280- 

64 

A0 

00 

48 

A9 

DO 

85 

F9 

6318- 

A9 

20 

9D 

DA 

64 

CA 

10 

FA 

6288- 

A9 

DO 

85 

FA 

68 

29 

7F 

8D 

6320- 

E8 

A0 

00 

B9 

11 

64 

F0 

3D 

6290- 

F4 

63 

F0 

25 

C9 

3A 

30 

12 

6328- 

38 

AD 

FC 

63 

F9 

lì 

64 

48 

6298- 

48 

A9 

CB 

85 

F9 

A9 

DI 

85 

6330- 

CS 

AD 

F5 

63 

F9 

11 

64 

90 

Ó2A0- 

FA 

68 

38 

E9 

3A 

8D 

F4 

63 

6338- 

2? 

8D 

F5 

63 

68 

8D 

FC 

63 

62A8- 

F0 

0F 

AE 

F4 

63 

Bi 

F9 

30 

6340- 

88 

BD 

DA 

64 

C9 

20 

DO 

13 


6348- 

A9 

30 

90 

0A 

64 

SA 

48 

A3 

63E0- 

3A 

64 

C8 

20 

ED 

FD 

CO 

36 

6350- 

30 

E8 

9D 

0A 

64 

E0 

04 

90 

63E8- 

DO 

F5 

A0 

OD 

20 

8 E 

FD 

88 

6358- 

F8 

68 

AA 

FE 

0A 

64 

DO 

C8 

Ó3F0- 

DO 

FA 

60 

00 

00 

00 

00 

00 

6360- 

C8 

63 

E8 

DO 

BE 

60 

A2 

05 

63F8- 

00 

00 

00 

00 

00 

00 

00 

00 

6368- 

20 

4A 

F9 

60 

AE 

F9 

63 

E0 

6490- 

00 

00 

00 

00 

00 

00 

00 

00 

6370- 

00 

DO 

02 

A2 

01 

20 

4A 

F9 

6408- 

00 

00 

00 

00 

00 

00 

00 

OC 

6378- 

60 

48 

98 

43 

AD 

02 

64 

F0 

64! 0- 

3C 

10 

27 

E8 

03 

64 

00 

0A 

6380- 

15 

A0 

00 

B1 

FB 

09 

80 

C3 

6413- 

00 

01 

00 

00 

3A 

DO 

CI 

C7 

6388- 

8C 

F8 

63 

20 

ED 

FD 

AC 

F8 

6420- 

C5 

A0 

00 

00 

00 

B8 

B0 

CE 

6390- 

63 

CC 

02 

64 

DO 

ED 

20 

8E 

6428- 

CE 

CF 

A0 

DO 

D2 

CF 

C7 

D2 

6398- 

FD 

68 

A8 

68 

60 

20 

58 

FC 

6430- 

CI 

CD 

A0 

D4 

CF 

A0 

CC 

C9 

63A0- 

A0 

06 

20 

3E 

FD 

88 

DO 

FA 

6438- 

D3 

D4 

DO 

D2 

C5 

D4 

D4 

D9 

63A8- 

A2 

03 

20 

4A 

F9 

A0 

00 

89 

6440- 

CC 

C9 

D3 

D4 

C5 

D2 

AC 

D6 

63BQ- 

3A 

64 

C8 

20 

ED 

FD 

CO 

19 

6448- 

C5 

D2 

D3 

C9 

CF 

CE 

C5 

A0 

6388- 

DO 

F5 

20 

8E 

FD 

20 

8E 

FD 

6450- 

Ci 

D3 

CD 

C3 

CF 

DO 

D9 

D2 

63C0- 

A2 

DB 

20 

4A 

F9 

A0 

19 

89 

6458- 

C9 

C7 

C8 

D4 

A0 

A8 

C3 

A? 

63C8- 

3A 

64 

C8 

20 

ED 

FD 

CO 

28 

6460- 

A0 

B1 

89 

B8 

B5 

C2 

D2 

D9 

63D0- 

DO 

F5 

20 

8E 

FD 

20 

8E 

FD 

6468- 

CI 

CE 

A0 

C2 

D2 

CF 

D7 

CE 

63D8- 

A2 

DE 

20 

4A 

F9 

A0 

2B 

B9 

6470- 

00 
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• Sicpack 

Si tratta di un pacchetto destinato ai progettisti che 
introduce un nuovo modo di intendere il lavoro al tavolo 
da disegno. L’elemento chiave delle nuove procedure di 
progettazione è certamente costituito da Macintosh e dalla 
possibilità di utilizzare il mouse. Sicpack della Softing è il 
software che permette il balzo in avanti con algoritmi che 
danno al progettista la possibilità di evitare la "traduzione" 
in uno schema matematico del progetto. In pratica questo 
programma, presentato recentemente con successo all’ul¬ 
tima edizione di Roma Ufficio, sfrutta le potenti capacità 
grafiche di Mac con il mouse per la stesura grafica di un 
progetto e, tenendo conto persino della normativa per 
l’edilizia in zona sismica, provvede a tradurre in termini 
matematici ciò che è stato inserito solo in forma grafica. 
Poi i calcoli vengono effettuati automaticamente con rela¬ 
tivo dimensionamento della parte strutturale. La grande 
potenza di Mac consente di avere automaticamente anche i 



grafici qualitativi più interessanti come la deformata di una 
struttura. Per dare un’idea della potenza di questo pro¬ 
gramma basterà citare un esempio campione: una struttu¬ 
ra di circa 400 elementi viene risolta da Mac con Sicpack in 
poco meno di 4 minuti. Interessante inoltre la possibilità di 
zoommare su un particolare della struttura per modificarlo 
in parte o per "leggere" i dimensionamenti calcolati così 
come, in sede di definizione dei particolari della struttura, 
è possibile ottenere la specifica e il disegno del ferro nel 
calcolo del cemento armato per ogni trave o particolare 
zoommato. 

Per ulteriori informazioni rivolgersi alla Softing, via 
Reggio Calabria 6, Roma, telefono 06/4248732. 


• Multiplan 

Multiplan della Microsoft, il programma che permette 
di pianificare tutti gli aspetti operativi di un’azienda (inclu¬ 
sa "l’Azienda famiglia", per la quale lo si può usare allo 
scopo di impostare e gestire il bilancio familiare), è dispo¬ 
nibile adesso anche nella versione in italiano, che consente 
una maggiore facilità d’uso. Come è noto, Multiplan gesti¬ 
sce una serie di "fogli" elettronici dove l’utente può definire 
le fasi operative della sua azienda e, con opportune richie¬ 
ste di controllo, avere sempre sotto mano lo stato di avan¬ 
zamento di un lavoro particolare o il rapporto aggiornato 
in tema di bilancio o previsione di spesa. Si aggiunge alla 
grande potenza e versatilità di Multiplan anche la possibili¬ 
tà di "mettere sotto chiave" una serie di dati ritenuti riser¬ 
vati: ciò consente di aprire l’accesso al Macintosh a tutti 
coloro che hanno la necessità di inserire dati o ricevere 
informazioni nel loro lavoro, senza però rischio per il 
titolare di "mettere in piazza" le informazioni che ritiene 
riservate. 

Il programma è disponibile al prezzo di 638.000 Iva 
inclusa. J. Soft, Viale Restelli 5, Milano, telefono 
02/683797. 


• TK! Solverpack meccanica 

Questo package utilizza il programma TKISolver e con¬ 
tiene una serie di modelli di utilizzo nel settore di Ingegne¬ 
ria Meccanica. L’utilizzatore può servirsi della soluzione 
proposta nel package in modo globale oppure può modifi¬ 
care quelle espressioni che nel suo caso vanno cambiate. Il 
programma è da intendere sia come soluzione sia come 
impostazione generale che lascia aperta la possibiltà di 
personalizzazioni. Sono disponibili i seguenti modelli nel 
settore del calcolo ingegneristico: • torsione elastica di 
una trave fissa agli estremi • dispersione di calore • movi¬ 
mento di fluidi in condotte • analisi di sistemi idraulici • 
calcolo dei momenti di inerzia di vari tipi di sezioni • 
frequenze di un sistema meccanico in rotazione. Prodotto 
da Software Arts è distribuito in Italia da Edi-Softec, 
Corso S.Maurizio 79, Torino (telefono 011/8396445). Co¬ 
sta 120.000 lire. 
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Ovunque mi compri 
ono garantito 
n anno, ma solo 

SALS INFORMATICA 

i assiste gratuitamente 
casa” 


Sofferta è valida per 

SALS INFORMATICA, 
a Genova, a partire 
al 31 marzo 1985 



□fi fall 

JZJL Informatica 

Via C. D'Annunzio, 2-35 Genova - Tel. (010) 58.93.27 


/ Centro dimostrativo sals informatica 
Viale Brigate Partitane. 132 R. Genova 






• MacCFS 

Si tratta di un programma di archiviazione elettronica 
che permette di creare e mantenere schedari di diverso 
formato e dimensione con la stessa facilità con cui si può 
maneggiare uno schedario in carta. Il programma infatti 
propone dei "fogli bianchi" su cui si scrive semplicemente il 
campo che si desidera creare, seguito da : (due punti). Non 
è necessario specificare la lunghezza dei campi, dato che 
questa viene automaticamente ampliata con l’inserimento 
dei dati. Ogni scheda elettronica può disporre di ben 8 
"pagine" di video e sino a 128 campi. I dati vengono diretta- 
mente trasferiti su dischetto al solo comando di INSERI¬ 
MENTO in modo da limitare le possibili perdite di dati 
all’ultima scheda in compilazione. Le funzioni di ricerca 


possono fornire la selezione delle schede in base ai requisi¬ 
ti richiesti con la possibilità di memorizzare su una scheda i 
più comuni criteri di selezione per una maggiore facilità 
d’uso. Particolare cura è stata posta dalla Cominfor di 
Torino, autrice di MacCFS, nella compattazione dei dati in 
memoria: un comune disco di Macintosh ha la capacità di 
circa 4500 schede create con MacCFS. 

Il programma è disponibile a 358.000 Iva inclusa. J. 
Soft, Viale Restelli 5, Milano, telefono 02/683797. 


• MACPREV 

Permette la gestione di un archivio articoli o prestazioni 
con una descrizione fino a 150 caratteri. Tale archivio è 
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La S.E.C. ha la più ampia gamma disponibile per Mac di tutta Europa. 




Technologies Corporation 


Con questo programma Macintosh "fotografa" qualun¬ 
que oggetto o persona. Voi, poi, potete intervenire grafi¬ 
camente e tagliare, aggiungere, ingrandire, scontornare, 
rimpicciolire, incorniciare, ruotare, schiarire, ombreggia¬ 
re... (vedi Applicando n. 15, Aprile 1985). Lire 850.000 + 
iva. 



The only software program that 
turns your Macintosh into a 
complete desk management System! 



© 

Warner Software 
Lit. 409.800 + iva 


• L’unico programma che trasforma il Mac in una segre¬ 
taria ideale ordinando in modo perfetto la vostra scriva¬ 
nia. 

• Organizza le lettere e i rapporti senza restrizione di 
formato, in ordine cronologico o alfabetico. 

• Scrive e corregge anche i memorandum e le lettere (ci 
sono 25 lettere d’affari standard già incluse). 

• Contiene un combinatore telefonico che ricerca i nume¬ 
ri dei vostri clienti direttamente dalla vostra rubrica. 

• E’ anche un calcolatore che permette, oltre ai normali 
calcoli, di risolvere automaticamente fino a 26 variabili 
(sono già incluse 25 formule finanziarie tra le più comuni). 

• Gestione appuntamenti e scadenze con suoneria. Qua¬ 
lunque sia il lavoro che state facendo, Desk Organizer vi 
ricorda delicatamente un appuntamento. 


Novità alla S.E.C. per Mac 

• Interfaccia stampa per Mac. Per collegare il vostro Macintosh 
a tutte le stampanti. Lit. 180.000. 

• Thunderscan: (Thunderware). Per mezzo della ImageWriter 
trasmette qualsiasi disegno al Mac. Lit. 735.000 + iva. 

• Mac Speli Right. Controlla l’esatta grafia delle parole. Lit. 
330.000. 

• Fact Finder. Database dinamico. Lit. 417.000 

• Mac Tilt. Per basculare il monitor del Mac. Lit. 300.000. 

Per Apple Ile - ///: 

PK A80-// Universal Parallel Printer Interface. Collega i vostri 
Apple a qualunque stampante. Lit. 750.000. 

UPGRADE SERVIZIO 



Servizio esclusivo S.E.C. per trasformazione Macintosh da 128Kb a 512Kb a sole 1.200.000 lire + iva. 


Importante novità per i rivenditori Southern European Computer: 


BOLLETTINO SOFTWARE 

Da oggi potete collegarvi, via modem, con la rete TINA e 
avere: Tutte le informazioni sul software e sull’hardware. 
L’elenco dei prodotti più venduti. Il catalogo con i prezzi 
aggiornati. Fare i vostri ordini in tempo reale. Ricevere 
informazioni tecniche. Avere e dare informazioni fra dea- 


lers sullo stoccaggio di magazzino ed effettuare eventuali 
compensazioni. Verrà concesso uno sconto del 5% sul 
primo ordine eseguito dopo l’allacciamento alla rete. Per 
informazioni rivolgersi a Southern European Computer, 
via Molino 2, 22030 Montorfano (CO), telefono 
031/200621. Telex 340422 WTCSEC. 
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via Molino 2, 22030, Montorfano (Como). Telefono (031) 200621. Telex 340422 WTC-I-SEC 


Con un modesto sovrapprezzo 
consegne a domicilio in 48 ore. 








































Corso Italia 149 - 34170 GORIZIA - Tel. 0481/30909 


Per il uostro Mac 


Presenta T hundetSc an 

Da oggi potete trasformare qualunque 
scritta o disegno in un documento grafico 
ad alta risoluzione per il uostro 
Macintosh. 

Basta inserire il documento da riprodurre 
nella Imageuiriter e Thunderscan leggera' 
l'immagine fornendoui un documento 
MacPaint che potrete ancora elaborare. 

Gli originali possono essere a colori o in 
bianco e nero e Thunderscan li riprodurrà' 
a oltre 200 punti per pollice ed in 32 
tonalità' di grigio. Sara' inoltre facile 
ingrandirli o rimpiccolirli, controllarne il 
contrasto e la luminosità'. 

Thunderscan non necessita di luci o 
telecamere. Basta inserire Thunderscan 
al posto della cartuccia del nastro e uia... 

Se auete preso il Mac almeno in parte per 
le sue capacita' grafiche, ora ne farete 
pienamente uso. 

Trouate Thunderscan direttamente alla 
Elcom o presso il uostro riuenditore Apple 
di fiducia. Chiedete il prezzo, sara' una 
piaceuofe sorpresa. 

Alla Elcom trouerete inoltre tutti gli 
accessori di qualità' per il uostro Apple. 


RIUENDITORE 

RUT0RIZZHT0 

“- J 



appiè 






modificabile in funzione di variazioni di prezzo sia per 
produttore sia per fornitore, con la possibilità di stampare 
listini sia generali sia condizionati da queste chiavi. Sulla 
base di questo archivio, permette la redazione di preventi¬ 
vi di fornitura con la possibilità di inserire o togliere impor¬ 
ti dal totale senza una loro visualizzazione sul preventivo 
finale. Attraverso il finder di Mac permette la creazione di 
un archivio preventivi. Nella gestione dell’archivio è possi¬ 
bile inserire sia costi di installazione che oneri accessori e 
prezzo di acquisto. Prodotto da Livinform, Via Roma 8, 
Livorno, (telefono 0586/803007) costa 490.000 lire Iva 
esclusa. 


• Analisi sismica 2.0 

Il programma calcola gli sforzi taglianti sui pilastri di 
strutture in c.a. per tener conto dell’azione sismica in 
ossequio alla normativa vigente con gli aggiornamenti re¬ 
lativi alle nuove norme tecniche DM 19/6/1984. E’ possibi¬ 
le risolvere strutture comunque complesse composte da 
pilastri, nuclei di irrigidimento come trombe di scale, 
ascensori, eccetera e pareti di taglio senza alcuna limitazio¬ 
ne sulla posizione degli elementi stessi e per un qualsiasi 
numero di travi colleganti i pilastri comunque disposte e 
inclinate. I limiti massimi sono di 99 elementi irrigidenti 
per piano fino a un massimo di 10 piani. Visualizza grafica- 
mente gli impalcati dell’edificio esaminato con possibilità 
di stampa. Tre diversi formati di stampa per la relazione di 
calcolo. Archiviazione permanente del calcolo per succes¬ 
sive aggiunte o modifiche. Possibilità di passaggio di dati e 
risultati al programma di risoluzione dei Telai Piani nel 
caso di strutture almeno parzialmente regolari in modo 
tale da evitare successivi interventi da parte dell’operato¬ 
re. Archiviazione fino a 18 diverse tipologie di carico. E’ 
prodotto da Microsoftware, via Menicucci 1, Ancona, (te¬ 
lefono 071/22380) e costa 500.000 lire iva esclusa. 


• Sales Edge 

Ideale per i rappresentanti e per i venditori in genere, 
Sales Edge aiuta a presentare un qualsiasi prodotto a un 
qualsiasi cliente consigliando la migliore tecnica da adotta¬ 
re. Impostando particolari situazioni, le caratteristiche e le 
esigenze del compratore, il programma simula il caso ana¬ 
lizzato e ne studia, insieme all’utilizzatore, le tattiche di 
vendita migliori. Prezzo: 648.000 lire. Produttore: Human 
Edge Software. Distributore in Italia: Southern European 
Computer, Via Molino 2, Montorfano (CO). 


• Pc to Mac and back 

Letteralemente da Pc a Mac e ritorno, il programma 
consiste in un manuale e un dischetto che permettono di 
far comunicare tra loro il Pc Ibm con il Macintosh. 

Con possibilità di impiego anche come terminale per 
accedei e a servizi come Tina o Euronet, il programma 
richiede un disk drive e una porta seriale RS-232 e, per 
collegarsi ad eventuali reti esterne, un modem. Costa 
234.000 lire, è prodotto dalla Dilithium Press. In Italia si 
può richiedere alla Southern European Computer, Via 
Molino 2, Montorfano (CO). 
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LA PRJMa VOLTA 
CON APPLE 


: PRINCIPI 

A ^A2joni 


vuoltofl® 


ALLA SCOPERTA 
DELL’APPLE Ile 

di F. WAGNER DOBLER 


APPLE MACINTOSH: 

IL COMPUTER MAGICO 

di E.S. CONNOLLY e P. LIEBERMAN 


Il libro, rivolto ad utilizzatori professionali e 
hobbistici, espone in dettaglio le disponibilità e 
le capacità dell'Apple /te, incluso il suo 
hardware, le sue periferiche, le sue possibilità 
grafiche e l'uso di elaboratori di testo, tabelloni 
elettronici ed altre utilità software. Nel testo è 
compreso un esame delle specifiche hardware 
della macchina, un'analisi della documentazione 
ed una parte dedicata aH'implementazione dei 
linguaggi di programmazione BASIC, LOGO, 
PASCAL, PILOT ed assembler 65C02. 

Il sistema operativo è trattato in dettaglio; cura 
particolare è stata dedicata al confronto fra 
l'Apple /te e il suo predecessore Apple Ile. 

Il presente libro costituisce un'inestimabile 
guida di riferimento per coloro che si 
propongono di acquistare l'Apple /te e 
desiderano un obiettivo giudizio delle sue 
capacità, oppure per coloro che, già 
possedendolo, sono interessati ad ulteriori 
informazioni pratiche sulle sue possibili 
applicazioni. 

Pag. 144 

Cod. 9301 L. 16.000 


IL 68000: PRINCIPI 
E PROGRAMMAZIONE 

di LED J. SCANLON 

Questo libro illustra le caratteristiche del 
microprocessore 68000 e fornisce le nozioni 
fondamentali per la sua corretta 
programmazione. 

In particolare vengono illustrati: 

- il Cross MacroAssembler della Motorola 

- il set di istruzioni del 68000 con i suoi 14 
modi di indirizzamento 

- le potenti istruzioni aritmetiche per 
moltiplicazione e divisione 

- programmi esemplificativi per la gestione 
delle liste e delle tavole numeriche 
Vengono inoltre illustrate le funzioni dei 64 
piedini del 68000 IC e i supporti periferici 
interfacciabili con esso. Conclude il volume una 
breve descrizione degli altri processori 

jpartenenti alla famiglia del 68000, con 
particolare riguardo per il 68008, utilizzato nei 
personal computer dell'ultima generazione 
Pag. 256 

Cod. 9850 L. 20.000 


In un unico volume uno sguardo all'Apple 
Macintosh: lo strumento che farà salire 
vertigginosamente la vostra produttività nel 
lavoro. 

Nel libro troverete: 

- Come si può rendere più efficiente un 
calcolatore da tavolo 

- Come il MacPensiero incrementa la 
produttività 

- Che cosa sta dietro alle MacWindows 

- Come ottenere il massimo dal Mouse 

- L'uso di MacWriter, MacPaint e di tutti gli altri 
MacTooIs 

- Quale altro software è disponibile per il 
Macintosh 

- Come funziona il microprocessore 68000 

- Tutto sui drives per mini-floppy. 

Inoltre imparerete come comunicare con il 
Macintosh e come creare menù che parlino da 
soli. 

Se ne possedete un esemplare o se intendete 
acquistarne uno, questa guida costituirà il 
vostro indispensabile e sapiente amico. 

Pag. 192 

Cod. 9350 L. 20.000 


LA PRIMA VOLTA 
CON APPLE 

di R. COOK e T. HARTNELL 

Se non avete mai programmato un computer 
prima d’ora e vi piacerebbe imparare in poche 
ore, ecco il libro adatto a voi Probabilmente già 
disporrete di gran parte, se non di tutto, del 
software che vi serve, ma vi sarete anche resi 
conto che è bene saperne un po' di più, magari 
per far colpo sugli amici, insegnare qualcosa ai 
vostri bambini o creare da soli qualche 
programma per lavoro o per gioco Questo libro 
vi spiega come far tutto ciò in pochissimo 
tempo All'inizio vedremo i pochi comandi che 
servono per lavorare con il disco di sistema, 
cioè per dare il via al computer. 

Il tutto avverrà sotto il vostro controllo a partire 
dalle prima pagina del primo capitolo del libro 
Passeremo poi in rassegna i termini più 
importanti per la programmazione e alla fine, 
avrete in mano una piccola raccolta di 
programmi che vi terranno occupati con Apple 
per qualche settimana. 

Pag. 100 

Cod. 9300 L. 16.000 
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Per chi 
comincia 



N uovi lettori, siate i benvenuti. Queste 
pagine sono per voi, e le ripeteremo a 
ogni numero per facilitare il primo incontro 
con Applicando e con il mondo di Apple. 
Ovviamente queste righe non intendono 
sostituire i manuali, dei quali consigliamo 
caldamente la lettura, ma possono bastare 
per chi intende soltanto utilizzare i pro¬ 
grammi che pubblichiamo, copiarli, salvar¬ 
li su dischetto e farli partire. 

Cominciamo con qualche rapidissima 
premessa su Apple //. Quando accendete 
per la prima volta il vostro Apple con un 
dischetto già inserito nel drive e la tastiera 
posizionata sull’inglese (per chi possiede 
Apple //e e //c), dovreste veder comparire 
sullo schermo il segno chiamato curso¬ 
re, o prompt, in inglese. Mentre se avete la 
tastiera posizionata su italiano, vedrete é. 
La sua presenza significa che potete fare 
una di queste tre cose: 

1) Fornire al computer comandi destinati 
al drive (per esempio CATALOG mostra il 
contenuto del dischetto, se si tratta di un 
dischetto in Basic). 

2) Fornire comandi nella versione per 
Apple del linguaggio Basic (e cioè l’Apple- 
soft Basic). 

3) Battere sulla «tastiera righe di pro¬ 
grammi in Applesoft Basic. 

Per copiare un programma da Applican¬ 
do potrà essere necesario fare tutte e tre le 
cose. 

Per battere un programma 

di applicando 

Per prima cosa sarà opportuno leggere 
fino in fondo l’articolo che accompagna il 
programma. Può darsi che non capiate pro¬ 
prio tutto la prima volta: non preoccupate- 
vene, in seguito diventerà facilissimo. Cer¬ 
cate soprattutto le eventuali istruzioni che 
spiegano se occorre fare qualcosa, di parti¬ 
colare per battere il programma. In ogni 
caso assicuratevi di aver pronto un dischet¬ 
to già inizializzato per poter salvare quel 
che avrete battuto. Per i dettagli su come 
inizializzare un dischetto vergine, guardate 
i manuali: chi proprio ai manuali fosse al¬ 
lergico, faccia così: a Apple spento inseri¬ 
sca il dischetto System Master nel drive 1, e 
accenda il computer: quando il drive avrà 
smesso di girare (lueina rossa di nuovo 
spenta), tolga il System Master dal drive e 
inserisca al suo posto un dischetto sicura¬ 
mente vergine e sicuramente mai usato (at¬ 
tenzione: si possono ri-inizializzare anche 
dischetti già usati, ma il loro contenuto va 
irrimediabilmente perso); ora basta battere 
NEW, Return, e poi INIT HELLO, sem¬ 
pre seguito da Return. 

Tutti i programmi in Basic consistono di 
una sequenza di righe di istruzioni. Tutte le 


righe sono numerate all’inizio, e possono 
contenere una o più istruzioni. Se le istru¬ 
zioni sono più d’una, esse saranno separate 
da segni di due punti (:). Per esempio: 


20 FOR J = 1 TO 5 : PRINT 
CHR$(7):NEXT J 


Per copiare da Applicando un program¬ 
ma, inserendolo nel vostro Apple, occorre 
assicurarsi che la memoria operativa del 
computer sia vuota battendo NEW Return 
(questa istruzione non cancella nulla di ciò 
che è registrato sui vostri dischetti: libera 
soltanto la memoria del computer dall’ulti¬ 
mo programma usato), ed è necessario poi 
battere i listati così come sono stampati, 
riga per riga, compresi i numeri di riga, 
battendo Return solo quando si arriva al 
numero di riga successivo. Quando sarà 
stata copiata anche l’ultima riga e l’ultimo 
Return (a fine riga), si potrà salvare il pro¬ 
gramma su dischetto (il dischetto che avete 
inizializzato, o un altro già inizializzato in 
precedenza su cui ci sia spazio libero a suffi¬ 
cienza). Per salvarlo basterà battere il co¬ 
mando SAVE, seguito dal nome che inten¬ 
dete dare al programma che avete trascrit¬ 
to. Questo è tutto, ma vediamo passo per 
passo un esempio. 


10 REM CAMPANELLO 
20 FOR J = 1 TO 5 : P R I N T 
CHR$(7):NEXT J 
30 END 

Listato 1 


Per battere il semplice programma Cam¬ 
panello del listato 1 (produce solo un suono 
simile a quello di un campanello, null’al- 
tro), si seguirà questa sequenza: 

1) Battete NEW Return per cancellare 
dalla memoria qualsiasi programma prece¬ 
dentemente usato. (Se state lavorando su 
un Apple //e o un //c assicuratevi che il tasto 
CAPS LOCK, il primo in basso a sinistra, 
quello che permette di ottenere tutte maiu¬ 
scole, sia schiacciato). 

2) Battete la linea 10 esattamente com’è 
stampata e premete il tasto Return solo alla 
fine dell’ultima parola (CAMPANELLO). 

3) Battete allo stesso modo anche le linee 
20 e 30. 

4) Con un dischetto già inizializzato nel 
drive (nel drive 1, se ne avete due), battete 
SA VE CAMPANELLO Return, per regi¬ 
strare il vostro programma su dischetto. 

5) Poiché il vostro programma è ancora 
nella memoria del computer, per farlo gira¬ 
re basterà battere RUN e premere il tasto 
Return. Se cancellate la memoria facendo 
girare un altro programma o spegnendo il 


computer, per usare nuovamente il pro¬ 
gramma occorrerà inserire il dischetto nel 
drive e battere RUN CAMPANELLO Re¬ 
turn. 

Alcuni suggerimenti 

I suggerimenti che seguono possono ren¬ 
dere il lavoro di trascrizione un po’ più 
facile: 

1) Se commettete un errore di battitura 
in una riga e non avete ancora premuto il 
tasto Return, basterà tornare indietro con 
la freccetta sinistra, correggere l’errore, e 
tornare al punto in cui eravate con la frec¬ 
cetta destra, premendo Return come al so¬ 
lito solo a completamento dell’intera riga. 
Se invece vi accorgete dell’errore quando 
ormai avete premuto Return e siete passati 
a un’altra riga, completate tranquillamente 
la riga che state scrivendo, compreso il Re¬ 
turn finale; poi ribattete la riga in cui avete 
commesso l’errore: ribattetela per intero, 
con numero di riga e tutto il resto, e la 
nuova versione prenderà automaticamente 
il posto della vecchia. 

2) Siate particolarmente attenti a non 
commettere errori di trascrizione nelle ri¬ 
ghe in cui compare l’istruzione DATA. 
Nelle altre istruzioni un eventuale sbaglio è 
più facile da individuare, perché penserà 
eventualmente il computer a segnalarlo in 
seguito, nelle istruzioni DATA questo in¬ 
vece non avviene. 

3) Salvate periodicamente il programma 
mentre procedete, per minimizzare i guai 
di una eventuale interruzione di corrente. 
Se non avete tempo per trascrivere tutto il 
progamma, trascrivete fin dove potete o 
volete (ma comunque completando fino al 
Return la riga che state battendo), poi sal¬ 
vatelo su dischetto come se aveste finito. 
Per riprendere a trascrivere sarà sufficiente 
inserire il dischetto nel drive, accendere il 
computer, e battere LO AD seguito dal no¬ 
me che avete dato al programma, e da Re¬ 
turn (battete CATALOG se non ricordate 
più con che nome avete salvato il program¬ 
ma). La luce rossa sul drive si accenderà, e 
il vostro programma verrà caricato nella 
memoria operativa del computer. A questo 
punto battete LIST, e vedrete scorrere sul¬ 
lo schermo tutta la parte del programma 
che avevate già battuto. Continuate adesso 
tranquillamente dal punto in cui avevate 
interrotto. 

4) Prima di effettuare modifiche o ag¬ 
giunte, trascrivete l’intero programma e fa¬ 
telo girare per prova. Questo renderà più 
facile la ricerca di eventuali errori, isolando 
quelli commessi durante la battitura e la 
trascrizione. Non preoccupatevi per il nu¬ 
mero di errori di trascrizione che farete: è 
normale. Il computer vi segnalerà, riga per 
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per i tuoi problemi di scrittura... 


UTIL WRJTER //e (.,.//c) 

Compilazione guidata lettera - Circolari personalizzate - Collegamento al Personal Data 
Base - 22 modi di scrittura - Creazione testata lettera - Utilizzazione set stampanti - 
Caricamento di un set alternativo per le stampanti Apple - Stampa su carta bollata - 
Schermate d’aiuto in italiano - Vari programmi d’utilità. l 130.000 + IVA 


PRO WR1TER //e (...//c) 

Stampa proporzionale a 10 passi diversi con stampanti ad aghi Apple - Sillabica- 
zione italiana a fine riga (tutte le stampanti) - Caricamento in memoria e uso di 
10 set alternativi per le stampanti ad aghi Apple - Comandi di controllo per le 
stampanti Apple ed Epson. 95.000 + IVA 


BASIC WRITER 


Collegamento di Apple Writer // all’ambiente Basic per program¬ 
mi di utilità e calcolazioni nel testo - Super-calcolatrice in Apple 
Writer // - Programma Graphic Writer // per stampare disegni o 
grafici integrabili al testo (stampanti ad aghi Apple ed Epson) - 
Funzione di compattamento video, di sovrapposizione continua e di 
scelta del profilo di tabulazione - Perfetto adattamento di Apple 
Writer // all’Apple //c - Estensione al programma PRO WRITER /Ve 
(per chi già lo possiede). L. 130.000 + IVA 

BASIC WRITER + PRO WRITER L. 195.000 + IVA 




i CATENACCIO 


trasformano Apple Writer // nel più potente sistema di Word Processor 

I tre programmi sono compatibili tra loro e richiedono la seguente configurazione: 

Apple //e (o //c) - Scheda 80 ci. + 64K - 1 Drive (2 Drive con Util Writer //e) - Programma Apple Writer // (Dos 3.3) 


...e per la sicurezza 

CATENACCIO 2.1 (Dos 3.3) 

II nuovo e rivoluzionario sistema di protezione software, basato sui più recenti studi del 
settore, che rende inabile qualsiasi programma di copia fino ad ora mai realizzato. 

L. 170.000 + IVA 

Software italiano dello STUDIO PEDRAZZINI 

In vendita presso i rivenditori Apple o direttamente da: 


POLISISTEMI s.r.i. 


molte 

—I rivendite 



rivenditore autorizzato APPLE COMPUTER 


Via Derna, 19 - 20132 MILANO 
Tel. (02) 2842890 - 2829917 - 2843158 
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riga, dove avete sbagliato. Basterà a questo 
punto controllare la riga, individuare l’er¬ 
rore commesso e ribattere correttamente 
l’intera riga. A questo punto occorre salva¬ 
re di nuovo il programma su dischetto. 

5) Le lettere minuscole possono essere 
usate solo all’interno di comandi che inclu¬ 
dono REM o tra virgolette. 

Programmi in 
linguaggio macchina 

Il Basic e il Dos sono ottimi linguaggi, 
ideati apposta per rendere più facile la pro¬ 
grammazione, ma l’Apple è in grado di 
ricevere comandi anche in un codice molto 
più vicino alla sua logica, chiamato linguag¬ 
gio macchina. Il linguaggio macchina è un 
po’ la lingua madre dell’Apple, un pro¬ 
gramma così composto sarà quindi compre¬ 
so dal computer molto più velocemente di 
un programma scritto in Basic. Per creare 
programmi in questa lingua si usa spesso un 
programma chiamato Assembler. L’As- 
sembler permette al programmatore di 
scrivere in un codice più facile del linguag¬ 
gio macchina: l’assembly. In un secondo 
momento il programma stesso si tradurrà in 
linguaggio macchina. L’Apple infatti non 
conosce l’assembly. 

Molti dei programmi che troverete su 
APPLICANDO saranno scritti in ambe¬ 
due le versioni: assembly e linguaggio mac¬ 
china; in questo modo potrete inserire le 
istruzioni direttamente in linguaggio mac¬ 
china, senza dovervi procurare il program¬ 
ma Assembler. In questo caso le istruzioni 
dovranno essere inserite direttamente nel 
System Monitor (da non confondere col 
monitor video): per raggiungere il System 
Monitor è sufficiente battere CALL—151 e 
schiacciare il tasto Return. A questo punto 
sullo schermo comparirà un asterisco (*) 
che indica che è stato raggiunto il contatto 
con il System Monitor. Per inserire i listati 
scritti in linguaggio macchina occorrerà al¬ 
lora battere, per esempio, i seguenti co¬ 
mandi: 


300: A2 05 20 DD FB CA F0 03 4C 02 03 60 
Return 


In questa serie di istruzioni il ’300’ indica 
una locazione di memoria e i due punti 
dicono all’Apple di inserire i seguenti nu¬ 
meri (A2 e gli altri numeri in base 16) in 
quella locazione. I numeri sono in base 16 
(esadecimale); non è necessario saper cal¬ 
colare con questa base per trascrivere i pro¬ 
grammi in linguaggio macchina, ma è im¬ 
portante sapere che in questo tipo di lin¬ 
guaggio i numeri sono dati sempre in esade¬ 
cimale. 

Facciamo un breve esempio di program¬ 
ma scritto in linguaggio macchina. Il se¬ 
guente listato serve a indirizzare alcuni dati 
in una particolare locazione di memoria: 


300.30B 

0300-A2 05 20 DD FB CA F0 03 
0308-4C 02 03 60 

Listato 2 


I numeri a sinistra delle lineette (atten¬ 
zione: le lineette non vanno digitate, al loro 
posto occorre battere un "due punti") sono 
le locazioni di memoria, vale a dire gli indi¬ 
rizzi dello spazio di memoria in cui il dato 
dovrà essere conservato, e i numeri seguen¬ 
ti sono il contenuto, i dati da memorizzare 
nelle sette locazioni di memoria indicate. I 
due numeri separati da un punto presenti 
nella prima riga indicano gli indirizzi inizia¬ 
li e finali della parte di memoria considera¬ 
ta. Questo programma è la traduzione del 
listato numero tre, scritto in assembly. Co¬ 
me si noterà le colonne a sinistra sono mol¬ 
to simili al listato numero due, contengono 
infatti le locazioni di memoria, mentre la 
parte a destra contiene istruzioni in assem¬ 
bly. Esistono diversi programmi assembler 
e diverse disposizioni dei listati, ma in tutti 
sono presenti queste due diverse colonne. 


1 *RINGER PROGRAM 



2 

ORG 

$300 


3 

BELL EQU 

$FBDD 

0300: A2 05 

4 

LDX 

m 

0302: 20 DD FB 5 

LOOP JSR 

BELL 

0305: CA 

6 

DEX 


0306: F0 03 

7 

BEQ 

END 

0308: 4C 02 03 

8 

JMP 

LOOP 

030B: 60 

9 

END RTS 



Listato 3 


Per inserire i listati nella macchina è suf¬ 
ficiente eseguire le seguenti operazioni: 

1) Digitare CALL-151 Return per en¬ 
trare in contatto con il System Monitor, poi 
inserire la locazione di memoria, i due pun¬ 
ti e il contenuto della memoria ; nel caso del 
listato numero due ad esempio si digiterà: 


300:A2 05 20 DD FB CA F0D3 Return 
308:4C 02 03 60 Return 


Un programma in Assembler sarà invece 
così inserito: 


300:A2 05 Return 
302:20 DD FB Return 
305:CA Return 
306:F0 03 Return 
308:4C 02 03 Return 
30B:60 Return 


State attenti a non inserire lo spazio tra i 
due punti e il primo numero seguente, 
mentre invece bisogna mettere lo spazio fra 
le coppie di numeri. 

2) Una volta inserito l’intero listato, 
schiacciate CTRL-C Return per tornare al 
livello BASIC indicato dal segno ’]’. 

3) Al contrario dei programmi in BASIC 
che iniziano nella stessa locazione di me¬ 
moria, e che possono essere salvati con un 
semplice SA VE, i programmi scritti in lin¬ 
guaggio macchina possono iniziare in di¬ 



versi punti della memoria. Per salvare lista¬ 
ti o dati in linguaggio macchina si dovrà 
indicare quindi la locazione alla quale ha 
inizio il programma da salvare e la lunghez¬ 
za dello stesso (in decimale o in esadecima¬ 
le). Per il programma usato prima come 
esempio, il comando sarà: 


BSAVE RINGER, A$300, L$C 

dove A$300 è la locazione di memoria di 
inizio programma e L$C è la lunghezza del 
programma (la lettera C corrisponde al nu¬ 
mero decimale 12). All’inizio dei listati in 
linguaggio macchina pubblicati su Appli¬ 
cando troverete sempre l’indicazione della 
locazione di memoria di inizio e fine pro¬ 
gramma; esempio: 300.3EA mentre nel 
corso dell’articolo troverete i parametri per 
salvare il programma, esempio: BSAVE 
RINGER, A$300,L$C. 

4) Per rivedere il listato che avete tra¬ 
scritto basterà battere 300.30B, e sullo 
schermo si riprodurrà tutto ciò che avete 
battuto. Per ottenere una copia sulla stam¬ 
pante, basterà battere PR # (£ se siete in 
tastiera italiana) seguito dal numero dello 
slot al quale avete collegato la stampante 
(normalmente il n. 1) Return e poi ancora 
300.30B Return. Le correzioni si fanno ri¬ 
battendo solo la riga contenente eventuali 
errori. 

5) Per far girare il programma basterà 
allora digitare BRUN RINGER, senza 
l’indirizzo. 

Quanto esposto sopra è valido sia per il 
DOS 3.3 (sistema operativo per la gestione 
del drive che veniva fornito prima dell’usci¬ 
ta del Ile) sia per il ProDOS (sistema opera¬ 
tivo fornito con il Ile). Usando il ProDOS 
occorre però fare alcune precisazioni. 

I comandi del tipo SAVE, LOAÉ), 
RUN, CATALOG, ecc. vengono accettati 
anche in forma minuscola. 

Per formattare un disco non si potrà più 
usare il comando INIT HELLO, ma sarà 
necessario usare il disco UTILITIES di Si¬ 
stema fornito con il computer. Durante 
questa operazione vi verrà chiesto se il no¬ 
me del disco, assegnato automaticamente 
dal computer, va bene oppure se volete 
cambiarlo. Infatti tutti i dischi formattati in 
ProDOS (indicati come Volume) hanno un 
nome e vengono riconosciuti indicando 
questo nome dopo un comando diretto al 
drive. Per esempio se volete vedere il cata- 
log di un disco chiamato BLANK, dovete 
battere CAT/BLANK. 

Per non ripetere continuamente il nome 
del disco potete battere, prima dei comandi 
diretti al drive, PREFIX/nome disco segui¬ 
to da RETURN. Da questo momento tutti 
i comandi al drive saranno diretti automati¬ 
camente al disco scelto. 

Per vedere il catalog è sufficiente battere 
CAT. 

Durante l’uso di alcuni programi scritti in 
ProDOS potreste trovarvi una richiesta del 
tipo "PATHNAME?"; non spaventatevi, il 
pathname è il nome del disco al quale vo¬ 
gliamo fare riferimento, scritto entro due 
barrette (/) e seguito dal nome del file che 
vogliamo salvare o caricare in memoria op¬ 
pure trasferire da un disco a un altro. 
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il punto gralveo - osnago 



Quattro milioni di dischetti ODP venduti 
in Italia dal 1978 fanno del dischetto ODP 
un best seller deM’informatica. Un suc¬ 
cesso determinato dall’alta affidabilità 
del dischetto ODP, risultato della tecno¬ 
logia edella ricerca più avanzata. Per que¬ 
sto scegli un best seller, scegli ODP. ■ 
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applicando 

si trova anche qui 

Ecco un elenco dei computer shop presso i quali è possibile abbonarsi ad Applicando, 
acquistare una copia, cercare un numero arretrato... 


LOMBARDIA 

Almé (BG) 

Elcod, Viale Italia 45/A 
Assago (MI) 

Basic Computers, Centro 
Commerciale Milano Fiori 

Bergamo 

Studio 15 srl. Via Quarenghi 60 
Il mondo deirinformatica. Via 
Pitentino 8 

Brescia 

Alfa computer. Via Bassi 26 
Brescia Computers srl. Via . 
Malta 12 

Il Computer srl. Via B.Croce 23 

L'Informatica srl. Piazza 
Vescovado 1 

Personal Data, via Brozzoni 4 

Como 

D.S.I. srl. Via Dottesio8 
Accaesse Informatica srl. Via 
Acquanera 46 

Gavardo(BS) 

Bit Shop, Via G. Quarena 120 
Lecco (CO) 

Computers Lecco snc. Via Nino 
Bixio 18/B 

Datamation, Via Turati 10 
Lissone (MI) 

Computerlandia. Via Martiri 
Libertà 103 

Milano 

A.G.Informatica srl. Via 
G. Silva 49 

Communications Engineering, 
Piazza Firenze 4 
Deltron srl. Viale Gran Sasso 
50 


Edelektron srl. Corso 
Sempione 39 
Esprit, Via Bergamini 13 
Happy System, Piazza Diaz 6 
Information Technology, Via 
dei Bossi 7 

AH'Informatica Shop. Via 
Lazzaretto 2 

Macan sas. Via Broletto 39 

Microtech Sistemi, Via 

Bronzetti 20 

SH Computers srl, Viale 

Montenero 33 

Softec Computer, Viale E. 

Jenner23 

Monza (MI) 

ESI srl, Via Cavallotti 11 
Nikom Electronics, Via Asiago 
7 

Pavia 

M.A.S.H. Computer Systems, 
Strada Nuova 86 
Senna Gianfranco snc, Via 
Calchi 5 

Trezzano sul naviglio (MI) 
Personal computer shop, Via 
L.da Vinci 36 

Segrate(MI) 

Compusoft, Via Milano 2, 
Resid. Lago 

Varese 

IRPE srl. Via Morazzone 8 

LAZIO 

Roma 

Bit Computers, Via Giovanni 
Gastaldi 33 

Computer Center srl. Via Nizza 
48/52 

Computerai srl. Via Michele di 
Landò 41 


Computime srl, Viale Parioli 25 
Easy Byte, Via Giovanni 
Villani 24 

E.D.P. Market, Via E. Fermi 
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E.M. EUR Micro Computer 
srl. Viale C. Pavese267 

5.1. G.E.E.I. srl. Via 
Nomentana 265-273 

5.1. PR.EL. srl. Via Pompeo 
Magno 94 

Roma EUR 

Bit Computers, Via F. 
Domiziano 10 

Viterbo 

Alfa Computer. Via Palmanova 
12/C 

VENETO 

Bassano del Grappa (VI) 

A Tre snc. Via Buonarroti 23 
Conegliano (TV) 

Computing Program, Via G. 
Piovesana 32 

Mestre (VE) 

Pacinotti sas. Via Torino 92 
Mirano (VE) 

Saving Elettronica, via Gramsci 
40 

Padova 

Capovilla & C. sas. Galleria 
Scrovegni5 

Computer Service srl, Via 
Beethoven 3 
E.D.P. Sistemi srl. Via 
Borromeo 16 

Treviso 

A5 Computers srl, Borgo 
Cavour 37/A 


Venezia 

AZ Telemarket, Cannaregio 
5898 

Personal Computer, 
Cannaregio 

Verona 

ARMU srl. Via Teatro 
Filarmonico 3 

Esacomp srl. Via Roveggia 43 
MOS 80 sas. Via Germania 21 

Vicenza 

Sevi sas. Via S. Agostino 87 
Villafranca (VR) 

Studio 4, Corso Vitt.Emanuele 
70 


PIEMONTE 
VALLE D’AOSTA 

Aosta 

Informatique sas, Av. Conseil 
desCommis 14 

Alba (CN) 

Centro computer. Via Paruzza 
2 

Biella (VC) 

Consul Computer srl, Via delle 
Rose 2 

Informatica Biella sas. Piazza 
S.Paolo 1/B 

Domodossola (NO) 

Nuova Elettronica, Via 
Giovanni XXIII68 

Novara 

SPA srl. Corso della Vittoria 53 
Pinerolo (TO) 

Elaborazione Dati Pinerolo, 
Corso Piave 42 
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Torino 

AB. Computer sas, Corso 
Grosseto 209 
Digitalsync snc. Corso 
Moncalieri 303 
Dimensione Personal, Via 
Bertola 22/e 

GE.NE.CA. srl. Via Bertela 5 
Hobby Elettronica, Via Saluzzo 
11/F-G-H 

Omicron Computers snc, C.so 
Duca degli Abruzzi 14 
PintoG.-Componenti elettr., 
Corso Principe Eugenio 15 bis 
Tecnosystem Computer Shop, 
Via Beaumont 10 
Tekno Computers srl, Via 
Madama Cristina 31/c 

TOSCANA 

Borgo a Buggiano (PT) 

CO-DI snc, Via 24 Maggio 
117/119 

Firenze 

Anfrel Informatica sas. Via 
Masaccio 50 

Elettronica Cento Stelle srl. Via 
Cento Stelle 5/B 
Paoletti Ferrerò, Via il Prato 
40/42 R 

Pascal Tripodo Elettronica, Via 
B. della Gatta 26/28 
Soluzioni EDP srl, Corso dei 
Tintori 39R 

Massa 

Euro Computer sas. Piazza C. 
Bertagnini 4 

Piombino (LI) 

Centro Ufficio sdf, Via F. 

Ferrer 37/39 

Pisa 

Società Elettronica Tirrena, 

Via Fucini 20 

Pistoia 

Inter Systems, Via Pietro 
Mascagni 14 

Pistoia Frazione Margine 
CO-DI snc, Via I Maggio 20/22 
Pontedera (PI) 

Data Port srl, Via Brigate 
Partigiane 27 

S. Giovanni Valdarno (AR) 
I.C.S. srl. Via Garibaldi 46 

EMILIA ROMAGNA 

Bologna 

CEDA Minicomp srl. Piazza 

Aldrovandi 2/2 

Computer Systems, Via 

Ercolani 10/D 

EDP Sistemi BO srl, Viale 

Pietramelara61/F 

SERCOM, Via B. da Carpi 9/B 

Cesena (FO) 

SHC snc, Corso Cavour 157 


Ferrara 

Soc. Termomeccanica, Via 
Garibaldi 195 

Mazzacurati Claudio. Viale 
Cavour 186/188 

Tecnomeccanica, Via Garibaldi 
195 

Fidenza (PR) 

Archimede, Via Vito Aimi 2 
Fiore nzuola d’Arda (PC) 
Centro Computer, Corso 
Garibaldi 125/A 

Forlì 

A-Z Computer srl. Via Cignani 
7 

Kronos, Via Oreste Regnoli 30 

Modena 

Masetti Elettronica srl. Via 
Emilia Centro 211 

Reggio Emilia 
Computer Center srl, Via 
D. Alighieri 4 
Esaprogetti, Via F.Filzi 2 

Rimini 

Computer Line, Via Coletti 61 
Scandiano (RE) 

Informatica System. Via Statale 
13/A 

Viserba di Rimini (FO) 
Computer Center, Via Pallotta 
25/A 

FRIULI VENEZIA 
GIULIA 

Pordenone 

Electronic Center snc, Viale 
Libertà 79 

Turriaco (GO) 

Tecno Power Elettronica. Via 
Marconi 19 

Udine 

BIT Computers, Via Pozzuolo 
107 

PS Elettronica sas. Via 
Tavagnacco 89/91 C.C. 

LIGURIA 


Genova 

Computer Center, Via San 
Vincenzo 129 r 
SALS Informatica srl. via 
D'Annunzio 2/35 

Lavagna (GE) 

CR2 Informatica snc. Corso 
Genova 100 

La Spezia 

Softline srl. Via Piave 19 
Sanremo (IM) 

A.E.S., Via Volta 24 

Savona 

Briano snc. Corso Tardy e 
Benech 20 r 


Se stri Ponente, Genova 
All Computer sas, Via C. 
Menotti 136r 

TRENTINO 

Trento 

SI.GE. snc, via Cesare Abba 2 

SICILIA 

Catania 

Centro Informatica sdf, Via 
Firenze 211 

Computer Shop, Via E. 
Orlando 164 

SI.EL Informatica snc, via 
Etnea 289 

Messina 

Cubeta srl, Via Cardines 12/14 
Milazzo (ME) 

Tectron Tecnologie Elet. srl, 
Via dei Mille 

Palermo 

Informatica Commerciale spa. 
Via Notarbartolo 26 

Ragusa 

Sosyco, Corso V. Veneto 597 

Trapani 

Guatano Eugenio, Via Virgilio 
11 

MARCHE 

Jesi(AN) 

E.M.J. sas, ViaF. Conti4 
New Computer srl. Via 
N. Sauro 17/ A 

Torrette di Ancona (AN) 
Sisteda srl. Via Velino 5 

CAMPANIA 

Barano d'Ischia (NA) 

Matterà Antonio, Via Roma 61 
Benevento 

Masone Informatica, Viale dei 
Rettori 57 

Napoli 

Computer Systems srl. Via G. 
Santacroce 40 
Golden Computer srl, Via 
Michelangelo 7 
I.C. International Computer, 
Viale A. Gramsci, 176 
La Barbera Carlo sas. Via 
Toledo 320 

Salerno 

Computer System, Via E. 
Bottiglieri 19 

SEDA srl, via Parmenide c/o 
Iannone 

CALABRIA 

Catanzaro 

Visicom srl. Via Minniti 
Ippolito 10 


Cosenza 

Micro Systems sdf, Via Pane 
Bianco 26 

Gioia Tauro (RC) 

Tecnocomp snc, Via Nazionale 
SS 111/117 

Reggio Calabria 

GLM Informatica snc, Via De 

Nava 98 

Spezzano Albanese (CS) 
Iannibelli. Via Stragolia 48 

PUGLIA 

Bari 

L. e L. Computers srl, Largo 2 
Giugno 4 

Ciesse spa. Via Re David 176/D 
Brindisi 

SIC srl. Viale S.Giovanni 
Bosco 109 

Foggia 

GE.CO. srl. Via Valentini V. 
Franco 1 

Leverano (LE) 

Liberano Elettronica, Via 
C.Salentina 19A/21 

Manduria (TA) 

De Pasquale Ottavio, Via per 
Oria 80 

Nardo (LE) 

Salco srl, Via XX Settembre 
122 

BASILICATA 

Matera 

Lucana Sistemi srl. Via Don 
Minzoni 4 

ABRUZZO 

Avezzano (AQ) 

Aspron, Via America 10/12 
Chieti 

Computer Point sas. Viale 
Unità d’Italia 5 

L Aquila 

S.E.A.D. srl, viaG. di 
Vincenzo 

Lanciano (CH) 

Electronic Microsystems, Via 
della Pace 3 

MOLISE 

Campobasso 

Informatica Molisana, Via 24 
Maggio 185/189 

UMBRIA 

Cerbara di città (PG) 
Computer Post, Via Madonna 
del Vento 
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Controlli 

per ImageWriter e DMP 

Quando accendiamo una stampante, i suoi parametri 
vengono definiti in modo standard, che, per lTmageW- 
riter e la DMP, sono 10 caratteri per pollice, interlinea 
1/6, stampa bidirezionale e stampa a 80 colonne. Forse 
non tutti sanno che questi parametri possono essere 
cambiati con comando diretto da tastiera e anche da 
programma. Indichiamo alcuni dei più comuni. 

9 caratteri per pollice: PRINT CHR$(27)+"n" 

10 caratteri per pollice: PRINT CHR$(27)+"N" 

12 caratteri per pollice: PRINT CHR$(27)+"E" 

15 caratteri per pollice: PRINT CHR$(27)+"q" 

17 caratteri per pollice: PRINT CHR$(27)+"Q" 
STAMPA UNIDIREZIONALE: PRINT 

CHR$(27)+">" 

(da sinistra a destra) 

STAMPA BIDIREZIONALE: PRINT 

CHR$(27)+"<" 

INTERLINEA 1/6 di pollice: PRINT CHR$(27)+"A" 
INTERLINEA 1/8 di pollice: PRINT CHR$(27)+"B" 
REGOLAZIONE MARGINE SINISTRO: PRINT 
CHR$(27)+"L"+"nnn" (dove nnn è un numero di tre 
cifre corrispondente all’ n-esimo carattere a partire 
dal quale si vuole iniziare a stampare). 

RESET STAMPANTE: PRINT CHR$(27)+"c" 

Per inserire questi comandi occorre prima attivare la 
stampante con l’istruzione PR#n (dove n corrisponde 
allo slot al quale è collegata la stampante) e quindi 
battere le istruzioni. Occorre ricordare che queste 
istruzioni vanno inserite singolarmente, cioè ogni istru¬ 
zione deve essere seguita da un RETURN. Quindi se 
vogliamo stampare ad esempio un listato con il caratte¬ 
re corrispondente al 17 CPI si deve usare la procedura 
seguente: 

caricare il programma in memoria quindi battere 
PR#1 seguito da RETURN 
PRINT CHR$(27)+"Q" seguito da RETURN 
LIST 

AppleWriter e //c 

Quando si usa l'APPLEWRITER con il Ile si incon¬ 
tra qualche problema dovuto al fatto che la linea in 
inverse situata nella parte alta del monitor, dove ven¬ 
gono riportate importanti informazioni (memoria di¬ 
sponibile, lunghezza del testo, nome del file, ecc.) è 
spezzata dai caratteri del Mouse residenti nelle ROM 
dell'APPLE Ile. 

Lo stesso problema si presenta quando il cursore 
viene posizionato sopra una lettera maiuscola: la lette¬ 
ra viene momentaneamente cambiata nella "Mela". 
Un'altra difficoltà si presenta se si è costretti a usare 
come video il TV domestico o un monitor a bassa 
risoluzione non adatti quindi a visualizzare i caratteri su 
80 colonne. 

Se si utilizza un APPLE Ile oppure un APPLE //e con 
la scheda 80 colonne, l'APPLEWRITER seleziona, 
senza possibilità di scelta, la visualizzazione in 80 
colonne. 

Per risolvere questi problemi, vi presentiamo una 
routine in Basic che apporta alcune modifiche all'AP- 
PLEWRITER e precisamente ai file OBJ.BOOT e 


OBJ.APWRT ][ F permettendo all’utilizzatore di sce¬ 
gliere, tramite Tinterruttore dell’APPLE Ile 80/40, se 
farlo girare in 80 o in 40 colonne. L’APPLEWRITER 
così modificato funziona anche sull'APPLE //e. Per 
farlo girare in 40 colonne occorre premere il tasto del n. 
4 durante il caricamento. Il programma non necessita 
di spiegazioni. Terminata la copiatura del listato, salva¬ 
telo come APPLEWRITER CONVERTER, date il 
RUN, sostituite il disco sul quale avete copiato il pro¬ 
gramma con quello contenente l’APPLEWRITER, 
battete RETURN, e il computer penserà a eseguire le 
necessarie modifiche. 


30 REM CONVERTITORE APPLEURITER // 

90 REM PER COMPATIBILITA' //c 

100 HIMEM: 640.0:DI = CHRI (4): TEX T : HOME : VTAB 9 



PRINT 'Inserire il disco con ;'APPLEURITER" 

PRINT : PRINT "e premere [RETURN]. GET Al: PRINT 
PRINT DI'BLOAD OBJ.BOOT" 

POKE 7383.194: POKE 7334,30 

FOR X = 7874 TO 7904: READ L: POKE X.L: NEXT 

DATA 32,234.29,173,0.192,201,130,208,5,141,14,192,240 

.10.173,192.251 

DATA 44,94,192,16.5,169.0,141,62,29,94 
PRINT DVUNLOCK OBJ.BOOT" 

PRINT DI'BSAVE OBJ.BOOT,AllC00,LI2Er 
PRINT DI-LCCK OBJ.BOOT- 


PRINT DI'BLOAD OBJ.APURT][F“ 

POKE 7129,76: POKE 7130.88: POKE 7131,80 

POKE 7264,97: POKE 7267.30 

POKE 1249/.99: POKE 12498,80 

FOR X = 17989 T0 18031: READ L: POKE X.L: NEXT 

DATA 193.240.240.236,229,160,175,175,227,160,246,229, 

242,243.233.239.238.160,0.201 

DATA 96,176,2.41,63.145,40.96,164,36,72,10,10,48,4,10 

4,41,191,72.104 

DATA 1 6 Y>2 V 

PRINT bl 4 UNLÒCK 0BJ.APURTHF" 

PRINT DI’BSAVE OBJ.APURT3[F,A!1900,LI30D1" 

PRINT DI"L0CK OBJ.APURTnF" 

VTAB 20: PRINT "Conversione terminata 1 ' 


Le parole riservate 

Ecco spiegato in sintesi il significato di alcune parole 
che a qualcuno possono sembrare ancora formule ma¬ 
giche, ma che in realtà di magico hanno solo il fatto che 
fanno funzionare il nostro computer... 

CLEAR - permette di riportare a zero tutte le varia¬ 
bili precedentemente dimensionte e riempite di dati. 

POP - quando si incontra questo comando al termi¬ 
ne di una subroutine, il successivo RETURN rimanda 
il programma alla linea immediatamente dopo la linea 
contenente il penultimo GOSUB. 

RESTORE - incontrando questo comando dopo 
aver eseguito un READ, un successivo comando 
READ che viene incontrato legge i DATA dall'inizio e 
non partendo dall’ultimo DATA letto come farebbe 
normalmente. 

SPC - questa funzione va sempre usata con un co¬ 
mando PRINT e permette di scrivere una parola o un 
dato, un certo numero di spazi orizzontali prescelto a 
partire sempre dall’ultima posizione del cursore. La 
sintassi esatta è: PRINT SPC(n.spazi);"nome o dato". 
Oppure PRINT"nome";SPC(n.spazi);"altro nome". 

TAB - questo comando, chiamato tabulazione, 
opera la stessa funzione di SPC. La differenza sostan¬ 
ziale è che le varie spaziature orizzontali sono sempre 
calcolate dall’inizio della tabulazione e non dall’ultima 
posizione del cursore. La sintassi esatta è: PRINT 
TAB(n.spazi);"nome";TAB(n.spazi);"nome" e così 
via. 
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è futuro 


Fuji ha messo 
tecnologie del futuro — 
nei floppy disks (H 


I nuovi floppy disks Fuji Heawy Duty assicurano 
una durata di oltre 20 milioni di passaggi, con 
tracce error-free al 100%. 

Innovativi per la struttura tridimensionale 
flessibile delle particelle magnetiche, 
la modulazione ridottissima, contenuta entro il 3%, 
il Super Hub Ring, parte integrante della 
struttura tridimensionale, e l’involucro resistente 
fino a 60°C, i floppy disks Fuji offrono oggi 
le tecnologie del futuro. \ 
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A. casa tua, partendo dalle nozioni 
di base e mettendo ogni volta in pratica 
ciò che impari, diventerai un esperto in 
micro-calcolatori. 

Non solo, ma con i materiali del Corso, 1 
costruirai interessanti apparecchiatura 
che resteranno di tua proprietà e 
ti serviranno sempre: il MINILA^ 

(laboratorio di elettronica 
sperimentale), il TESTER (analizzatore 
universale), il DIGILAB (laboratorio 
digitale da tavolo), l’EPROM 
PROGRAMMER (programmatore di 
memorie EPROM) e l’ ELETTRA COMPUTER 
SYSTEM (microcalcolatore basato sullo Z80). 
Chiedi oggi stesso informazioni gratis e senza 
impegno su questo 
nuovo Corso o 
sugli altri 9 Corsi 
di elettronica 
preparati per 
te da Scuola 
Radio 
Elettra. 


I microcomputer richiedono tecnici capaci di 
assicurarne sempre il perfetto funzionamento. Sapere 
com’è fatto un microcomputer, conoscerne tutti i segreti, 
è il punto di partenza per un’attività moderna, specialistica 
e interessante anche per le possibilità di guadagno. 

Ecco perché Scuola Radio Elettra 
ti propone il CORSO-NOVITÀ’ 

ELETTRONICA DIGITALE 
E MICROCOMPUTER 

in 44 gruppi di lezioni e 17 serie 
" di materiali con oltre 870 
componenti e accessori. 

Compila e spedisci questo tagliando. 


Scuola Radio Elettra 

Via Stellone 5-10126 Torino 


Compila, ritaglia, e spedisci solo per informazioni a: x 96 

SCUOLA RADIO ELETTRA - Via Stellone 5 -10126 Torino 

Vi prego di farmi avere, gratile senza impegno, il materiale informativo relativo al Corso di: 


□ Tecnica elettronica 
sperimentale (NOVITÀ’) 

□ Elettronica digitale (NOVITÀ’) 

□ Microcomputer (NOVITÀ’) 

□ Elettronica Radio TV 

□ Elettronica industriale 


□ Televisione b/n 

□ Televisione a colori 

□ Amplificazione stereo 
\3Alta fedeltà 

□ Strumenti di misura 


(Indicare con una crocetta la casella che interessa) 


j_i_i PROV. _ 

PROFESSIONE . 
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Data e ora nel catalog PRODOS 

Sul n. 12-13 di Applicando , rispondendo alla lettera 
di un lettore, avevamo spiegato un modo diretto per 
datare i programmi quando venivano salvati. Certi di 
fare cosa gradita ai lettori, riportiamo la procedura in 
questa rubrica completandola con l’inserimento dell’o¬ 
ra, per coloro che non hanno inserito nell’APPLE la 
scheda orologio. 

DATA: Caricato il PRODOS in memoria, occorre 
battere POKE 49041,anno (solo due cifre) *2+(ME- 
SE>7). Poi se il numero del mese è maggiore di 7, 
battere POKE 49040,(MESE-8)*32+GIORNO; se 
invece il numero del mese è minore di 8, si deve battere 
POKE 49040,MESE*32+GIORNO. Esempio: la data 
1/1/85 va inserita così: 

POKE 49041,85*2+(l>7):POKE 49040,1*32+1. 

ORA: Battete POKE 49043,ORA (da 0 a 24):POKE 
49042,MINUTI (da 0 a 59). 

Da questo momento e fino a quando non spegnerete 
il computer, ogni qualvolta salverete un programma, 
verrà anche indicato il giorno e l’ora. Una cosa impor¬ 
tante da ricordare è che l’ora non potrà essere inserita 
se prima non si provvederà a inserire la data. 

Comandi PRODOS 

Sul N.7/84 avevamo trattato, a grandi linee, il siste¬ 
ma operativo PRODOS. Riprediamo il discorso trat¬ 
tando in particolare i nuovi comandi inseriti in questo 
sistema operativo. Innanzitutto vogliamo ricordare che 
il PRODOS può trattare il disco sul quale salviamo i 
dati come un grande armadio con tanti cassetti nei quali 
sono sistemati i vari file dello stesso genere (questi 
cassetti vengono chiamati DIRECTORY). Quindi in¬ 
vece di fare una ricerca in armadio senza cassetti con 
tutto ammonticchiato, abbiamo la possibilità di fare 
una ricerca settoriale a seconda dell’argomento tratta¬ 
to. Per rendere possibile questo è sufficiente creare 
delle DIRECTORY con il nome del genere di file che 
vogliamo archiviare: giochi, utility, contabilità, casa, 
ufficio, ecc. Le DIRECTORY possono essere create 
più semplicemente senza utilizzare il disco di utility, 
con il comando "CREATE". 

Lo scopo principale di questo comando è appunto di 
creare una nuova DIRECTORY nella quale inserire 
dei file. Può essere utilizzato anche per creare tutti i tipi 
di file utilizzabili dal PRODOS. La sintassi è la seguen¬ 
te: CREATE nome[,Ttipo][,S#][,D#] dove "nome" è 
il nome del file che si vuol creare, "tipo" è il tipo di file 
che si vuol creare, "S#" e "D#" sono rispettivamente lo 
slot e il driver dove è inserito il disco. I comandi nelle 
parentesi quadre sono facoltativi. Se si omette il "tipo" 
viene creato automaticamente un file "DIRECTORY". 

Creata la DIRECTORY, per vedere i file compresi 
in essa occorre battere CAT/nome directory/nome file; 
se invece vogliamo lavorare con un programma salvato 
in una DIRECTORY dobbiamo battere PREFIX/no- 
me directory seguito da RETURN. Da questo momen¬ 
to tutti i comandi relativi al disco saranno riferiti al 
programma contenuto in quella DIRECTORY. 

Nella spiegazione del comando CREATE abbiamo 
detto che esso può creare vari tipi di file usati dal 
PRODOS. Riportiamo qui la loro nomenclatura che è 
la stessa che si ritrova nel catalog. 


Abbreviazione 

Tipo di file 

DIR 

Directory 

TXT 

Testo 

BAS 

Programma in Applesoft 

BIN 

Programma in Assembler 

REL 

Programma in Assembler Rilocabile 

SYS 

Prodos System File 

SYS 

Prodos System Program 

VAR 

Variabili Applesoft 


Un altro comando molto utile in PRODOS che non 
si aveva in DOS, è CHAIN. Esso permette di concate¬ 
nare due programmi senza cancellare dalla memoria le 
variabili relative al primo ^programma. Può essere usato 
sia come comando immediato sia da programma. Cari¬ 
ca in memoria e fa girare il programma richiamato 
permettendo di utilizzare le variabili che erano in me¬ 
moria. La sintassi del comando è: CHAIN no- 
me[,@#][,S#][,D.#«]. Per esempio: 

CHAIN/ESEMPIO/PARTE.II 

L’opzione @# è utile per far partire il programma da 
una determinata linea. Occorre ricordarsi che in PRO¬ 
DOS tutti i comandi di accesso a disco o a intefacce, 
inseriti in un programma, devono essere sempre prece¬ 
duti da CTRL-D o dall’equivalente CHRS(4), pena 
ricevere un messaggio di SYNTAX ERROR. 



Altri comandi che non esistevano in DOS e invece 
sono presenti in PRODOS sono STORE e RESTORE. 
L’istruzione STORE permette di salvare in un file di 
tipo VAR tutte le variabili che in quel momento si 
trovano in memoria lasciando invariato sia il program¬ 
ma che abbiamo in memoria sia le stesse variabili. Per 
richiamare le variabili si usa l’istruzione RESTORE. 
Essa cancella le variabili che si trovano attualmente in 
memoria e le sostituisce con quelle memorizzate nel file 
VAR sul disco. 

La sintassi è STORE nome e RESTORE nome. Può 
essere eseguito sia come comando immediato sia trami¬ 
te programma. 
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lina cassetta 
di salvataggio 

Sono un fedele abbonato 
possessore di un Apple //e 
con scheda 80 colonne più 
64K. Ho battuto il program¬ 
ma UNA CASSETTA DI 
SALVATAGGIO pubbli¬ 
cato su Applicando n. 7 ma, 
fatto girare, battuta l’opzio¬ 
ne due "da disco a nastro", e 
digitata l’intestazione ri¬ 
chiesta, il driver gira per due 
tre secondi, si blocca, e ri¬ 
mane bloccato senza dare il 
caratteristico segnale acusti¬ 
co di inizio registrazione, 
neanche dopo svariati minu¬ 
ti. Essendo certo di non aver 
commesso errori di battitu¬ 
ra, per aver più volte con¬ 
trollato il listato in linguag¬ 
gio macchina, sono propen¬ 
so a credere in un errore ti¬ 
pografico. Resto in attesa di 
un vostro chiarimento in 
merito, nel contempo gradi¬ 
rei conoscere se sia possibile 
sfruttare l’espansione di me¬ 
moria per velocizzare l’ope¬ 
razione lettura scrittura da 
disco a nastro e viceversa. 

Filippini Fabio 

Signa (FI) 

Possiamo escludere un er¬ 
rore tipografico nel listato, 
tuttavia abbiamo dimentica¬ 
to di indicare i parametri di 
salvataggio del listato stesso 
che trascriviamo qui di se¬ 
guito: BSAVE ARCHI¬ 
VIO, A$800,L$55C 

Trappola 
per pochi 

Il papà ha acquistato un 
Apple//c e io ho faticato tan¬ 
to a ricopiare il lungo listato 
di TRAPPOLA PER PO¬ 
CHI pubblicato sulla vostra 
rivista di dicembre. 

Dopo aver corretto alcuni 
errori che avevo fatto rico¬ 
piandolo, ho cercato di farlo 
girare, ma sempre Apple//c 
mi rispondeva 

1) ?Next without for error in 
6250 

2) digitando il tasto I mi dà: 
?Out of memory error in 


5030. 

Ho contollato più volte se 
avevo digitato giustamente 
queste due righe; avendo 
copiato giustamente vi chie¬ 
do cosa devo fare. Vorrei sa¬ 
pere anche se questo pro¬ 
gramma si può usare, ag¬ 
giungendo alcune righe, col 
joystick. 

Stefano Buracchia 

(Milano) 

Quando si incontra 
"NEXT WITHOUT FOR in 

linea .", l’errore non si 

trova quasi mai alla linea in¬ 
dicata ma in una linea prece¬ 
dente dove viene messa l’i¬ 
struzione FOR. Ricontrolla 
attentamente il listato e so¬ 
prattutto se hai scritto FOR 
all’inizio delle linee 6210 e 
6230, e GOTO 7000 al termi¬ 
ne della linea 6240. Senza 
GOTO 7000, quando il pro¬ 
gramma arriva alla linea 
6240 e trova vera l’ugua¬ 
glianza, incontra NEXT K,J 
quindi passa alla linea 6250 
e, se è vera, ritrova NEXT 
K,J e segnala errore. 

Anche per il secondo pro¬ 
blema ti consigliamo di con¬ 
trollare meglio il listato per 
trovare un eventuale errore 
di battitura. 

Per usare il joystick al po¬ 
sto della tastiera indichiamo 
qui sotto le linee del pro¬ 
gramma che vanno modifi¬ 
cate. Per iniziare il gioco si 
deve battere il tasto di sinistra 
del joystick oppure il tasto 
MELA VUOTA. 


Sul software copiato 

Spett. Sig. Emilio Guarisco (autore di una lettera 
pubblicata sul N. 14 di Applicando, che avevamo 
intitolato "Copiate non comprate?" N.d.R.) la sua ri¬ 
chiesta di conoscere il parere di altri lettori di questa 
(per me) magnifica rivista, mi ha fatto sentire in dove¬ 
re, come utilizzatore di programmi fatti da altri, di 
risponderle, sperando che la mia non sia l’unica missi¬ 
va sullo scottante argomento a giungere in redazione. 

Sono d’accordo con lei sul fatto che il prezzo del 
software, tenuto conto del costo del dischetto, del 
manuale, delle spese sostenute dall’ideatore e di 
quelle pubblicitarie oltre che di distribuzione, debba 
essere calcolato in base al preventivo di vendita dello 
stesso, per ammortizzare i costi e diminuire il prezzo 
nel caso che venga superato il preventivato numero di 
copie vendute. Questo, secondo me, è tener conto 
delle leggi di mercato. Penso che vendere copie di 
programmi sia la forma migliore di pubblicità per una 
ditta di home o personal computer. I ragazzini infatti 
si fanno comprare il Commodore o l’Apple dal mo¬ 
mento che a scuola o al club trovano il relativo softwa¬ 
re a prezzi loro accessibili. Giapponesi, inglesi ed ora 
anche altri si sono resi conto che, integrando le mac¬ 
chine con programmi o dandoli su supporti all’atto 
dell’acquisto, hanno incrementato le vendite. Non 
può esistere Computer Shop che ti dia una configura¬ 
zione completa dicendoti :"ora se vuole vedere qual¬ 
cosa sul monitor deve spendere ’tot’ per il tale pro¬ 
gramma". Chi venderebbe più ? Solo chi fornisce 
sistemi "chiavi in mano"! Il personal sarebbe solo per i 
grandi o per l’hobbista e alla piccola gestione non 
rimarrebbe che l’home (ve lo vedete voi il piccolo 
gestore che armeggia sull’AQUARIUS ?!). Ora ba¬ 
sta, sto diventando polemico. Signor Emilio, mi sem¬ 
bra eccessiva la presa di posizione contenuta nel pri¬ 
mo paragrafo della sua lettera. Come fa a conoscere i 
commenti che ha suscitato senza ricevere o acquistare 
Applicando ? Rinnovo i miei complimenti alla reda¬ 
zione con i saluti ai lettori e al signor Emilio. 

Marcello Mori Ventimiglia (IM) 


LISTATO 


1000 X = PEEK < - 16287) :Y = RND ( - RND <!)>* IF X < 12 
8 THEN 1000 

5010 FOR J = 1 T0 15:X = PEEK ( - 16297); IF X ) 127 THEN 
J = 15 

5100 IF PDL (0) > 0 MD PDL (0) < 255 AND PDL (1) > 0 AND 
PDL (1) < 255 THEN RETURN 

->5110 IF PDL (1) = 0 AND PDL (0) ) 0 AND PDL (0) < 255 THEN 

G0SUB 5300: RETURN 

5120 IF PDL (0) = 0 MD PDL (1) > 0 AND PDL (1) < 255 THEN 

G0SUB 5390: RETURN 

5130 IF PDL (0) = 255 AND PDL (1) > 0 AND PDL (1) < 255 

THEN G0SUB 5480: RETURN 

'5140 IF PDL (1) = 255 AND PDL (0) > 0 AND PDL (0) < 255 

THEN GOSUB 5570: RETURN 

"5150 IF PDL (0) = 255 AND PDL (1) = 255 THEN GOSUB 5660 

: RETURN 

5160 IF PDL (0) = 0 AND PDL (1) = 255 THEN GOSUB 5690: RETURN 

5180 IF PDL (0) = 0 AND PDL (1) = 0 THEN GOSUB 5720: RETURN 

5190 IF PDL (0) = 255 AND PDL (1) = 0 THEN 5750: RETURN 


Pucman 

Ho digitato su un Ap- 
ple//e il listato PUCMAN 
apparso su Applicando n. 
6/84 e mi sono accorto che il 
calcolatore dopo aver letto il 
listato n.l non tiene più in 
memoria i listati n.2 e n.3 
che aveva caricato in memo¬ 
ria durante la lettura del li¬ 
stato n.l. Tutto ciò ha come 
conseguenza che il compu¬ 
ter non può far girare i listati 
n.2 e n.3 anche se li aveva 
già caricati in memoria. 
Inoltre, dopo che appare la 
scritta PREMERE UN TA¬ 
STO PER CONTINUARE 
e ciò viene fatto, il program- 
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IL MERCATINO DELLE MELE 


ma si blocca facendo appari¬ 
re sul video una strana scrit¬ 
ta in linguaggio macchina. 
Cosa è successo? Cosa posso 
fare? 

Bologna Walter 

Desio (MI) 

A pag. 45 del N.6 è stato 
commesso un errore tipogra¬ 
fico nella descrizione delle 
operazioni di salvataggio dei 
due listati in linguaggio mac¬ 
china. Le istruzioni esatte 
sono per il listato 2 a pag. 42 
BSAVE NIBBLER SHA- 
PES,A$4000, L$152 e per il 
listato 3 a pag.43 BSAVE 
NIBBLER O B - 
J;A$6000, L$1181. Per recu¬ 
perare una parte del lavoro 
di copiatura effettuato inseri¬ 
sca il dischetto contenente i 
listati ed esegua le seguenti 
istruzione: 

1 BLOAD NIBBLER 

SHAPES,A$4000 

2 BSAVE NIBBLER 
SHAPES,A$4000,L$150 

Con queste prime opera¬ 
zioni ha sistemato il listato 2 
al posto giusto. 

3 BLOAD NIBBLER 
OBJ,A$6000 

4 BSAVE NIBBLER 
OBJ,A$6000,L$1181 

5 CALL—151 

A questo punto batta 
6153: e continui a copiare il 
listato 3 salvandolo poi con 
Vistruzione indicata al punto 
4. 

Errata-Corrige 

Il programma SISTEMA 
BASE pubblicato sul N. 3 a 
pag. 14 contiene un errore ti¬ 
pografico alla linea 6780. 
Essa va riscritta così: 

IF Y$< > "S" THEN 6640 

PRECISAZIONE 

Nel programma AGEN¬ 
DA PERSONALE pubbli¬ 
cato sul N. 5 a pag. 23, allo 
scopo di avere una sicurezza 
maggiore nell’inserimento 
del "codice di sicurezza", è 
utile modificare un’ugua¬ 
glianza alla linea 9220 e pre¬ 
cisamente IF A$="" va sosti¬ 
tuito con IF A$=CHR$(13) 


• Compro, purché in buo¬ 
ne condizioni, il n. 2 di Ap¬ 
plicando a Lire 30.000. Te¬ 
lefonare a Marino allo 
02/9102341. 

• Visicalc, Visicorp per 
Apple //e, con programma 
Training CDEX (3 dischi) 
versione 1983. Usato po¬ 
chissimo. Quick File solo 
per //e, edizione 1984, pra¬ 
ticamente nuovo. Vendo a 
buon prezzo o cambio. Te¬ 
lefonare ore pasti a Mar¬ 
cello allo 02/2141710. 

• Acquisto stampante 
grafica usata 132/80 colon¬ 
ne con interfaccia per Ap¬ 
ple //e. Telefonare ore uf¬ 
ficio: 0372/411994, chie¬ 
dendo di Alessandro Tan- 
tardini. 

• Compro a qualsiasi 
prezzo manuale del Gu- 
temberg. Scrivere o telefo¬ 
nare a: Luca Bechis, Via 
B. Bruni 5, 12100 Cuneo. 
Tel. 0171/65143. 

• Vendo a sole 30.000 lire 
su dischetto, l’appassio¬ 
nante adventure game "La 
scatola nera", personal¬ 
mente realizzato. Gira su 
Apple II, //e o compatibili 
con un drive. Il program¬ 
ma può essere esaminato. 
Per informazioni rivolger¬ 
si a: Mauro Milanese, Via 
Statuti 27, 30020 Pradi- 
pozzo (VE). Tel. 
0421/704624. 

• Macintosh consulenza 
professionale hardware e 
software. Vendo/creo/per¬ 
sonalizzo programmi di 
tutti i generi. Traduco 
software e documentazio¬ 
ne commerciale. Specia¬ 
lizzato in gestione studi le¬ 
gali, medici, commerciali, 
pubblicitari. Alessandro 
Menicacci, Via San Silve- 
rio 31, 00165 Roma. Tel. 
06/6384180. 

• Causa passaggio siste¬ 
ma superiore svendo circa 
300 programmi per Apple 


II (ognigenere). Blocco 10 
dischetti doppia faccia con 
programmi vari a Lire 
100.000. Vendo anche se¬ 
paratamente. Per infor¬ 
mazioni scrivere o telefo¬ 
nare a: Bruno Rota, Via 
Passo di Brizio 6, 20148 
Milano. Tel. 02/4082437. 

• Per Apple //è vendo 80 
colonne estese (80 colonne 
-I- 64Kb), nuove e perfet¬ 
tamente collaudate. Di¬ 
spongo di due versioni: 
senza zoccoli L. 120.000 e 
zoccolate L. 140.000. No¬ 
tato i prezzi? Garantisco 
massima serietà. Per infor¬ 
mazioni telefonare a Paolo 
allo 0332/589739. 

• Vendo Apple //e, moni¬ 
tor //, Disk //, 50 program¬ 
mi tra cui Visidex, Visi- 
Cale, Flight Simulator. Il 
tutto in perfette condizioni 
a lire 200.000. Giampaolo 
Rolli, Via Rodolfo Tanzi 
41, 43100 Parma. Tel. 
0521/31303. 

• Vendo a lire 2.800.000 
computer Apple //c, quat¬ 
tro mesi di vita, mouse, 
stampante Scribe, racco¬ 
glitore dischi, scatola 10 
dischi. Il tutto con imbal¬ 
laggi originali e garanzia; 
più omaggi. Tel. 
02/799216 oppure 
6898171. 

• Vendo Apple originale, 
scheda language, scheda 
80 colonne, minuscole, 
due drive con controller, 
monitor Philips 12", stam¬ 
pante Centronics 739 gra¬ 
fica con interfaccia paral¬ 
lela. Regalo otto nastri in¬ 
chiostrati e cinque dischet¬ 
ti di programmi, in blocco 
a lire 2.600.000, non trat¬ 
tabili, fatturabili. Telefo¬ 
nare nel pomeriggio al- 
l’arch. Pinelli allo 
02/4399713. 

• Causa cambio sistema 
vendo per Apple II circa 
150 dischi con software di 
ogni genere. Vendo anche 


separatamente a lire 
15.000 per disco. Rivol¬ 
gersi a Marco Pozzi, Via 
Cenisio 16, Milano. Tel. 
02/314151. 

• Vendo monitor colori 
14" Cabel. Cambio softwa¬ 
re per Apple IL Telefona- 
re a Vittorio allo 
031/711317. 

• Desidero contattare 
possessori di Apple Ma¬ 
cintosh per scambio espe¬ 
rienze e software. Luigi 
Servadei, Via Villa d’Oro 
45, 41100 Modena. Tel. 
059/250933. 

• Acquisterei program¬ 
ma Apple Writer Ile o pro¬ 
gramma conversione da 
Apple Writer //e a II c. 
Ignazio Mastrapasqua, 
Via R. Fauro 54, Roma. 
Tel. 06/803500. 

• Vendo Macintosh 
512K, stampante Imagew- 
riter 80 e i seguenti pro¬ 
grammi: Multiplan ingle¬ 
se, Ms Basic 1.0, Ms Basic 
2.0, MacPaint, MacWrite. 
Tutto a 6.000.000 intratta¬ 
bili. Telefonare allo 
0861/72750 ore negozio. 

• Si eseguono accurate 
traduzioni dall’inglese di 
libri, manuali e software 
per Apple. Scrivere a ca¬ 
sella postale S.F. 127, 
41100 Modena. 

• Vendo per Apple II 
"Supertoto 1.0" superpro- 
gramma totocalcio inedi¬ 
to, tre diverse opzioni di 
selezioni incrociate (N. se¬ 
gni 1X2; consecutivi; corr. 
errori), con output n. co¬ 
lonne utili, sviluppo su 
monitor o stampante. Lire 
60.000 con manuale. Ro¬ 
berto Rossi, Via Lario 26, 
20159 Milano. Tel. 
02/6070236 ore serali. 
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Disk Service 

Listati senza fatica 

Tutti i programmi di Applicando possono essere trascritti e quindi salvati su 
dischetto. Ma la trascrizione è lenta e noiosa, e sbagliare fin troppo facile. 

Ecco perché Applicando offre, già pronti, i dischetti con i programmi 
sottoindicati: per ottenerli, è sufficiente inviarci il tagliando debitamente 
compilato. 


Applicando 1 

*AP1/I02 

Profitti. In tempo reale l’analisi del break-even point, punto di pareg¬ 
gio, di una qualsiasi azienda. Calendario perpetuo. Dal 1582 in poi 
tutto quello che si può sapere sui giorni passati e futuri. I tronchi del 
tesoro. Una spericolata caccia al tesoro a nuoto, fra le insidie di 
tronchi galleggianti. Lire 30.000 (abbonati 25.000). 

*AP1/N03 

Eliminatore di Dos. Uno strumento per aumentare del 10% la capaci¬ 
tà di un normale floppy disk. Orologio. Per trasformare l’Apple II in un 
orologio con rintocchi, allarme e lancetta dei secondi. Pronti puntare 
fuoco! Guardiano di un castello abbandonato, hai 25 colpi da sparare 
contro gli intrusi. Lire 30.000 (abbonati 25.000). 

Applicando 2 
*AP2/IN04 

Costi chilometrici auto. Un programma per calcolare e confrontare i 
costi di qualunque auto. Richiamafigure. Posizionare, ingrandire, 
ruotare, cambiar colore, aggiungere figure a quelle di una tavola. 
Laser nello spazio. Battaglia a colpi di laser contro asteroidi e alieni 
per difendere la torretta spaziale. Lire 30.000 (abbonati 25.000). 

Applicando 3 

*AP3/IN05 

Sistema base. Un data base modulare con tutte le caratteristiche 
essenziali per mettere ordine nei propri archivi. Etichette. Etichette 
spiritose e bizzarre, di lavoro o di ogni genere, stampate facilmente e 
nel numero desiderato. Contratti. Con il WPL, il linguaggio di pro¬ 
grammazione dell’Apple Writer, bastano cinque minuti per un docu¬ 
mento di più pagine personalizzato. Gran catalogo. Una routine per 
avere il catalogo del dischetto su due colonne, 42 file per volta, e 
richiamarli con un solo tasto. Lire 30.000 (abbonati 25.000). 
*AP3/A06 

Equo canone (occorre Visicalc). In Visicalc un modello che permette, 
a inquilini o proprietari, l’esatto calcolo dell’equo canone. Lire 25.000 
(abbonati 20.000). 


Sistema base - AP3/IN05 

Un data base modulare che ha 
il pregio di costare pochissimo 
e di offrire possibilità operative 
che nemmeno programmi 
di costo molto superiore hanno. 



Applicando 4 

*AP4/N07 

Lettura sprint (versione italiana e versione con frasi in inglese). Un 
reading improver per leggere di più a parità di tempo. Rompiquindici. 
Il piccolo rompicapo delle quindici pedine da ordinare nei sedici spazi a 
disposizione. Tastierino fantasma, una routine per avere a disposi¬ 


zione un tastierino numerico anche sull’Apple //. Routine di input. 
Due subroutine, una per i dati numerici l’altra per gli alfanumerici, per il 
controllo dell’input. Lire 30.000 (abbonati 25.000). 

*AP4/A09 

Organo, violino, pianoforte (dischetto Pascal, occorre language 
card o Apple Ile o Ile). Ecco come si riesce a simulare i tre strumenti 
attivando l’altoparlante dell’Apple da programma. Lire 30.000 (abbo¬ 
nati 25.000). 

Applicando 5 

*AP5/N08 

Investor. In tempo reale il quadro di come vanno i propri investimenti 
in Borsa. Con 5 prospetti riepilogativi e 52 periodi di quotazione, 
Investor è uno dei programmi più completi in questo settore e in 
assoluto il più economico. Lire 70.000 (abbonati 60.000). 

‘AP5/N09 

Agenda personale. Per ricordare ora per ora gli appuntamenti di un 
anno intero memorizzando fino a 15 appunti ogni giorno. Duello 
d’artiglieria. Vince chi sa calcolare meglio la velocità del vento, la 
gittata e l’elevazione della canna. Mele e freccette. Versione compu¬ 
terizzata del popolare gioco delle freccette che nulla toglie al gusto del 
far centro. Lire 30.000 (abbonati 25.000). 


Investor - ÀP5/N08 



Per seguire le azioni in Borsa, con 
grafici, media mobile a 15 e 52 
settimane, medie volume e prezzo. 


Applicando 6 

*AP6/N10 

Obbligazioni/Bond Manager. Per avere un quadro completo e con¬ 
creto dei rendimenti dei titoli a reddito fisso. PucMan/Nibbler. Versio¬ 
ne in alta risoluzione per Apple del famoso videogame a gettone. Line 
finder. Questa utility permette di localizzare facilmente i segmenti di 
un programma. Lire 30.000 (abbonati 25.000). 

*AP6/N11 

Stress. In Pascal (occorre language card o Apple Ile o Ile). Per 
giocare, ma soprattutto per inventare giochi, il programma si pone in 
alternativa agli usuali videogame. Lire 55.000 (abbonati 45.000). 
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Stress - AP6/N11 

Il programma ideale per chi ha 
l'Apple //c (ma gira anche sul //e) 
e che consente di inventare 
sempre nuovi giochi. 


Applicando 7 

*AP7/N12 

Apple pittore. Si possono realizzare sullo schermo capolavori di 
pittura, ottenendo effetti speciali di grande efficacia. Ottovolante. Un 
tutorial per insegnare ai bambini a riconoscere i numeri che rimbalza¬ 
no sullo schermo. Diskblock. Una routine che permette di evitare che 
qualche curioso possa avere libero accesso in programmi riservati. 
Archivio per Apple. Per avere un back-up dei programmi più impor¬ 
tanti da dischetto a cassetta o viceversa. Discoteca. Una banca dati 
che tiene sotto controllo la collezione di longplaying e di cassette. 
Aiuto. Alla fine della battitura di un programma, Aiuto vi dirà quanti 
errori ci sono e a quali linee.Lire 30.000 (abbonati 25.000). 


Apple pittore - AP7 /N12 

Potrete realizzare sullo schermo 
capolavori artistici con effetti 
speciali di grande efficacia 
ma soprattutto facili da ottenere. 


Applicando 8 

*AP8/N13 

Cambiacomandi/Messaggi. Un programma che insegna come per¬ 
sonalizzare i messaggi propri del Dos dell’Apple. Le Mans. Un gran 
premio di formula uno da giocare in due o da soli contro il computer. 
Appleorgano. Una combinazione di linguaggio macchina e di Apple¬ 
soft che trasforma l’Apple in un melodioso organo. Lire 30.000 (abbo¬ 
nati 25.000). 

*AP8/T14 

Momento di una forza/Colpo all’asta. La dimostrazione didattica del 
ribaltamento di un corpo solido appoggiato a un piano quando viene 


applicata una forza orizzontale che supera il momento in senso oppo¬ 
sto dovuto al peso. Hard copy pagine in alta risoluzione. Se la 
stampante risponde a determinati criteri di compatibilità, con questo 
programma si possono far miracoli. Lire 30.000 (abbonati 25.000). 

Applicando 9 

*AP9/N15 

Fuoco fatuo. Un appassionante adventure game con un percorso 
intricatissimo, mille trabocchetti, un troll e una principessa. Apple 
artista. Per destreggiarsi nella grafica ad alta risoluzione usando lo 
schermo come tavolozza e la tastiera come pennello. Data hello. Una 
semplice routine che permette di disporre di una clock card inizializ- 
zando i dischetti con giorno, mese e anno. Lire 25.000 (abbonati 
20.000). 

*AP9/T 16 

Sistema di forze parallele. Fissandone l’intensità e la posizione 
questo programma permette di visualizzare il centro di un sistema di 
forze sotto forma numerica e grafica. Traslazione e rotazione di una 
figura piana. Come far ruotare, traslare, rimpicciolire, ingrandire sul 
video una figura piana. Lire 30.000 (abbonati 25.000). 

Applicando 10 

*AP10/N14 

Ripristino. Come ripristinare programmi persi per un’accidentale 
istruzione di New o di Fp. Disk Map. Un detective del Dos per scoprire 
dove e come vengono immagazzinati i dati analizzando la mappa dei 
bit occupati. Autonumber. Una routine per autonumerare automatica- 
mente i programmi e allineare le linee con un ritorno carrello in input. 
Lire 30.000 (abbonati 25.000). 

*AP10/T17 

Rette nel piano cartesiano. Come individuare in cinque modi diversi 
una coppia di rette in un piano cartesiano e avere visualizzate le 
equazioni relative ai valori assegnati. Statistica. Come analizzare la 
correlazione fra due fenomeni o due caratteri e l’indice o coefficiente di 
Bravais che ne effettua la misura. Lire 30.000 (abbonati 25.000). 
Applicando 11 
*AP11/N18 

Apple edicola. Una banca dati per avere sotto controllo un articolo, il 
suo numero di pagina, la rivista su cui è stato pubblicato. Disk Zap. Il 
programma indispensabile per il debugging di un dischetto che ne 
risolve la maggior parte dei problemi. Messaggi personali. Quando la 
persona non c’è, per lasciare un messaggio basta impostarlo sulla 
tastiera. L’Apple farà il resto. Comparatore di programmi in basic. 
Una routine per risolvere dubbi sulle diverse versioni di uno stesso 
programma. Trappola per pochi. Un cacciatore contro tre animali 
feroci. Vince chi riesce a intrappolare senza essere intrappolato. Lire 
30.000 (abbonati 25.000). 

*AP11/T19 

Espressioni. Come risolvere un piccolo dramma familiare con l’aiuto 
di un elaboratore personale. Lire 25.000 (abbonati 20.000). 

Applicando 12-13 

AP12/N20 

Bridge. Un programma in altissima risoluzione grafica che permette di 
imparare il bridge o di giocarlo contro il computer. Microcalc. Un foglio 
elettronico di calcolo, spreadsheet, che mette a disposizione 20 righe 
per 20 colonne per un totale di 400 caselle da riempire come si vuole. 

(Continua a pag. 130) 
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Compilare e spedire il tagliando qui sotto a Applicando, Editronica Srl., Corso Monforte 39, 20122 Milano 
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/IMI I c “ .. 

n lAlPl 1 

Scelgo la seguente formula di pagamento: 

/llll 1 □ alleqo asseqno di L . non trasferibile intestato a Editronica srl. 

n lAlPl 1 

I / 1 1 1 1 1 □ allego ricevuta versamento di L . sul cc/p n. 19740208 intestato a 

' 1 1 1 I 1 Frlitrnnirn ^rl Pnr^n Mnnfnrtp - POI PP Mitrino 
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idilli | di credito Bank Americard N . 

1 |A|P| 
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IH 1 1 1 1 d’America e d’Italia ad addebitarne l’importo sul mio conto BankAmericard. 
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Disk Service 


Applesoft Line Editor. Una potente utility che permette l’editing dei 
programmi in Applesoft e aggiunge all’Apple un più ampio controllo del 
cursore. Lire 30.000 (abbonati 25.000). 

AP12/A21 

Budget (occorre Appleworks). Un prospetto che con l’inserimento di 
dati mensili e di medie preventive calcola automaticamente le medie 
consuntive e i relativi saldi mensili e annui. Lire 15.000. 

AP12/A22 

Budget (occorre Visicalc). Un prospetto che con l’inserimento di dati 
mensili e di medie preventive calcola automaticamente le medie con¬ 
suntive e i relativi saldi mensili e annui. Lire 15.000. 

AP12/A23 

Cinque modelli Spreadsheet, tre modelli data base, due modelli 
Word Processor. Versione per Appleworks. Due dischetti. Lire 
80.000 (abbonati 70.000). 

AP12/A24 

Cinque modelli Spreadsheet. Versione per VisiCalc. Lire 40.000 
(abbonati 35.000). 

AP12/T25 

Animazione di una rotazione tridimensionale. Un esempio di come 
una rotazione tridimensionale permette di rappresentare gli oggetti 
proprio come li vediamo. Trasformazione da File a Data. Una utility 
per risolvere il problema di aggiungere a un programma preesistente 
delle istruzioni DATA ricavati da un altro file. Lire 25.000 (abbonati 
15.000). 
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Applicando 14 

AP14/N26 

Golf. Un programma in altissima risoluzione grafica che permette di 
disegnare il proprio percorso di golf per poi giocarci a piacimento con 
gli amici. Autopiù. Con l’aiuto di questo programma non dimentichere¬ 
te più gli appuntamenti fissi dedicati alla manutenzione della vostra 
automobile. Lire 20.000. 

*AP14/N27 

Applebaby. Tre giochi didattici: il primo per imparare a contare in età 
prescolastica; il secondo per ripassare le tabelline; il terzo per eserci¬ 
tarsi nell’ortografia. Lire 20.000. 

*AP14/A28 

Rimborso spese, (occorre Appleworks). Un prospetto che vi permet¬ 
te di preparare le vostre note spese automaticamente in cinque minuti. 
Lire 15.000. 

*AP14/A29 

Rimborso spese, (occorre VisiCalc). Un prospetto che vi permette di 
preparare le vostre note spese automaticamente in cinque minuti. Lire 
15.000. 

*AP14/T30 

Frutteti. Un aiuto a risolvere uno dei più classici problemi di estimo. In- 
stant Poster Voi scrivete con la tastiera del vostro Apple la frase che 
volete, e subito dalla stampante esce un poster formato gigante. Lire 
15.000. 


Applicando 15 

AP15/N31 

Sintetizzatore di suoni. Con questo programma potete dotare i vostri 
lavori di una colonna sonora eccezionale; permette infatti la sintetizza- 
zione dei suoni più diversi: dal canto dell’uccellino, alla mitragliatrice, 
dal treno in corsa all’aereo, e tantissimi altri, compresa la musica. 


Volano. Un gioco in alta risoluzione per due sfidanti. Illustratore. Un 
programma di grafica che offre la possibilità di realizzare ottimi disegni 
anche a chi non è troppo ferrato in materia. Autoschermo. Crea in 
automatico videate di presentazione dei programmi inseriti in un di¬ 
schetto; dall’aspetto molto professionale, evidenzia infatti i programmi 
con una barra luminosa comandabile con le frecce e fa partire il 
programma così evidenziato con un semplice Return. Lire 30.000. 
AP15/A32 

Computer cuisine. Un ricettario computerizzato sul quale memoriz¬ 
zare ingredienti e ricette a centinaia, eliminando così sia il fastidio di 
mille pezzetti di carta sparsi per i cassetti, sia il pericolo di perdersi 
preziose ricette. Con possibilità di stampa delle singole ricette e un 
menù completo dei migliori piatti creati da Gualtiero Marchesi, il più 
famoso cuoco d’Italia. Lire 20.000. 

AP15/T33 Euclide. Il massimo comun divisore e il minimo comune 
multiplo in un programma che ne permette l’immediata comprensione. 
Isomeri. Fa parte del più ampio progetto americano Seraphim, per lo 
studio della chimica. Lire 15.000. 


Sintetizzatore - ÀP15/N31 

Una utility per creare adeguate colonne 
sonore nei vostri programmi. Nel dischetto 
sono già registrati: batteria laser, canti 
di uccelli, esplosioni, canto dei marine, ecc. 


Applicando 16 

AP16/N34 

Dieta personalizzata. Con questo programma, un pratico sistema di 
Data Base nutrizionale, è possibile personalizzare, a seconda della 
propria costituzione fisica e delle abitudini alimentari, una dieta bilan¬ 
ciata, a lungo o a breve termine. Il dischetto contiene un file dati di 400 
cibi, la cui composizione è analizzata in calorie, proteine, grassi, 
vitamine, colesterolo. Lire 25.000. 

AP16/N35 

Designer. Il concetto dei potenti e costosi programmi di CAD/CAM alla 
portata dell’Apple //, per fare del computer uno strumento per disegna¬ 
re semiprofessionale. Il gioco dei pompieri. E’ scoppiato un incendio, 
e voi siete un pompiere che deve salvare il maggior numero di persone 
prima che muoiano soffocate tra le fiamme. Se sbagliate tre volte, 
sarete nei guai: il severo comandante... Timer. Un efficace program¬ 
ma per trasformare l’Apple // in un fedele e preciso contasecondi che 
avverte del passare del tempo, e al momento giusto... Lire 25.000. 
API 6/N36 Cento One-liner. Utilities, routines, dimostrativi di grafica e 
di suoni, e perfino giochi. Cento programmi su un solo dischetto, tutti 
rigorosamente scritti in una sola linea di Basic. Da usare così come 
sono, da studiare come esempi di sintesi, o da trasferire nei vostri 
programmi. Lire 25.000. 

AP16/N37 Rubrica telefonica. (Occorre AppleWorks). Un’agenda 
telefonica che individua in tempo reale qualunque numero memorizza¬ 
to, che stampa le etichette per spedire gli auguri di Natale e di Pasqua 
solo a chi volete voi, che seleziona, con molteplici possibilità, gruppi di 
nominativi e stampa elenchi su carta da distribuire aggiornati ogni 
mese ai collaboratori. Lire 15.000. 


CoAputer-cuisine - ÀP15/A32 

Un Data Base con il quale raccogliere tulte 
le ricette di cucina. La consultazione e la 
stampa delle ricette diventano immediate. 
Con 10 ricette di Gualtiero Marchesi. 


*1 dischetti contrassegnati con asterisco contengono anche il pro¬ 
gramma Tombola, omaggio natalizio di Applicando e di Compushop, 
via Nomentana 265-273, Roma. 
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LATUA AZIENDA 

FIN PERICOLO 


(adesso lo sai) 



Questo dischetto 

contiene 

a tua azienda a 

are 


Questo dischetto 
contiene 
la tua azienda a 

^55X 

La tua azienda è in pericolo nel suo 
punto vitale: il “computer”. 

Ed è concentrata su pochi supporti 
magnetici che devi proteggere. Dal¬ 
l’incendio soprattutto, dal furto, da at¬ 
ti vandalici o semplicemente da mani 
indiscrete. ■ 


I RICHIESTA INFORMAZIONI 

Per Informazioni spedire questo coupon, in busta chiù- 
I sa, a DATAMATIC S p A. - via Volturno, 46 - 20124 Milano 
| tei. (02) 6073876 (5 linee r.a.) - via Città di Cascia, 29 
I 00191 Roma • tei. 3273581 (4 linee r.a.). 


MCC 300 E MCC 100 

Due esempi della linea ignifughi 
prodotta dalla svedese HADAK. 


è un prodotto 



datamatic 

TRATTA BENE ILTUO CALCOLATORE 


disponibile anche 
presso i migliori 
rivenditori 
di prodotti per 
rinformatica. 


I NOME. 

1 COGNOME 
I INDIRIZZO 
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